ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Check if the build is stripped, and die if it is. 

Check for Bash 2.0, and if so use different STDERR->STDOUT redirctor
(thanks Ryan Cumming!).
This commit is contained in:
Adam Sacarny 1999-03-22 12:39:49 +00:00 committed by Alexandre Julliard
parent 3130fcec86
commit 733c124d10
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tools/bug_report.pl
View File

@ -6,6 +6,8 @@
##hunt you down and kill you like the savage animal I am.
##Released under the WINE licence
##Changelog:
##March 21, 1999 - Bash 2.0 STDERR workaround (Thanks Ryan Cumming!)
##March 1, 1999 - Check for stripped build
##February 3, 1999 - Fix to chdir to the program's directory
##February 1, 1999 - Cleaned up code
##January 26, 1999 - Fixed various bugs...
@ -104,6 +106,15 @@ if ($debuglevel > 1) {
$wineloc=<STDIN>;
chomp $wineloc;
}
print "Checking if $wineloc is stripped...\n";
$ifstrip = `nm $wineloc 2>&1`;
if ($ifstrip =~ /no symbols/) {
print "Your wine is stripped! Please re-download an unstripped version!\n";
exit;
}
else {
print "$wineloc is unstripped\n";
}
$var5 = qq{
What version of windows are you using with wine? 0-None, 1-Win3.x,
2-Win95, 3-Win98, 4-WinNT3.5x, 5-WinNT4.x, 6-WinNT5.x, 7-Other (Enter
@ -329,13 +340,16 @@ if ($debuglevel < 3) {
};
print do_var($var21);
}
$bashver=qw("/bin/bash -version");
if ($bashver =~ /2\./) { $outflags = "2>" }
else { $outflags = ">&" }
print "Hit enter to start wine!\n";
$blank=<STDIN>;
$dir=$program;
$dir=~m#(.*)/#;
$dir=$1;
chdir($dir);
system("echo quit|$wineloc -debugmsg $debugopts $extraops \"$program\" >& $dbgoutfile");
system("echo quit|$wineloc -debugmsg $debugopts $extraops \"$program\" $outflags $dbgoutfile");
$lastlines=`tail -n $lastnlines $dbgoutfile`;
system("gzip $dbgoutfile");
open(OUTFILE,">$outfile");