share/msysGit/disable-wer.tcl

   1 #!/mingw/bin/tclsh
   2
   3 # Use this script to set the registry settings to disable the 'a problem
   4 # caused the program to stop working' dialog box when something crashed.
   5 #
   6 # This is desirable e.g. when running Git's test suite since a single
   7 # crash would simply block the complete process.
   8
   9 package require registry 1.0
  10
  11 set wer "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows"
  12 set wer "$wer\\Windows Error Reporting"
  13 registry set "$wer" "ForceQueue" 1 dword
  14 registry set "$wer" "DontShowUI" 1 dword
  15 registry set "$wer\\Consent" "DefaultConsent" 1 dword