bug_report.pl sanity patch
Andreas Mohr
andi at rhlx01.fht-esslingen.de
Fri Dec 27 08:44:17 CST 2002
Hi all,
in order to keep my mental sanity, I'm posting this patch to increment
bug_report.pl log output from 200 lines to 3000 lines
(wine relay log has grown *much* more verbose and thus *much* less
useful with short logs than it used to be, thus making me go mad
whenever I see a bug_report.pl log).
I also added Win XP (ugh !) as a listed Windows version.
(I'm still wondering whether maybe I shouldn't have done that, though)
Index: tools/bug_report.pl
===================================================================
RCS file: /home/wine/wine/tools/bug_report.pl,v
retrieving revision 1.15
diff -u -r1.15 bug_report.pl
--- tools/bug_report.pl 1 Jun 2002 02:55:52 -0000 1.15
+++ tools/bug_report.pl 27 Dec 2002 14:52:19 -0000
@@ -216,7 +216,8 @@
"4 - Windows NT 3.5x\n".
"5 - Windows NT4.x\n".
"6 - Windows 2000\n".
- "7 - Other\n\n";
+ "7 - Windows XP\n".
+ "8 - Other\n\n";
do
{
print "Enter the number that corresponds to your windows version: ";
@@ -237,8 +238,10 @@
} elsif ($winver =~ 5) {
$winver="Windows NT 4.x";
} elsif ($winver =~ 6) {
- $winver="Windows NT 5.x";
+ $winver="Windows 2000";
} elsif ($winver =~ 7) {
+ $winver="Windows XP";
+} elsif ($winver =~ 8) {
print "What version of Windows are you using? ";
$winver=<STDIN>;
chomp $winver;
@@ -325,24 +328,24 @@
$var13 = qq{
How many trailing lines of debugging info do you want to include in the report
you're going to submit (First file)? If a developer asks you to include
- the last 1000 lines, enter 1000 here. Default is 200, which is reached by
+ the last 15000 lines, enter 15000 here. Default is 3000, which is reached by
pressing enter. (If you're not sure, just hit enter):
};
print do_var($var13);
} elsif ($debuglevel =~ 3) {
$var14 = qq{
Enter how many lines of trailing debugging output you want in your nice
- formatted report. Default is 200:
+ formatted report. Default is 3000:
};
print do_var($var14);
}
$lastnlines=<STDIN>;
chomp $lastnlines;
if ($lastnlines =~ /^\s*$/) {
- $lastnlines=200;
+ $lastnlines=3000;
}
} elsif ($debuglevel =~ 1) {
- $lastnlines=200;
+ $lastnlines=3000;
}
if ($debuglevel > 1) {
$var15 = qq{
--
Andreas Mohr Stauferstr. 6, D-71272 Renningen, Germany
More information about the wine-patches
mailing list