This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Display $ENV{CYGWIN} in perlbug if set (like #10875 for perl -V).
[perl5.git] / utils / perlbug.PL
CommitLineData
37fa004c
PP
1#!/usr/local/bin/perl
2
3use Config;
4use File::Basename qw(&basename &dirname);
8a5546a1 5use Cwd;
1948c06a 6use File::Spec::Functions;
37fa004c
PP
7
8# List explicitly here the variables you want Configure to
9# generate. Metaconfig only looks for shell variables, so you
10# have to mention them as if they were shell variables, not
11# %Config entries. Thus you write
12# $startperl
13# to ensure Configure will look for $Config{startperl}.
84902520 14# $perlpath
37fa004c
PP
15
16# This forces PL files to create target in same directory as PL file.
17# This is so that make depend always knows where to find PL derivatives.
8a5546a1 18$origdir = cwd;
44a8e56a
PP
19chdir dirname($0);
20$file = basename($0, '.PL');
774d564b 21$file .= '.com' if $^O eq 'VMS';
37fa004c 22
55d729e4 23open OUT, ">$file" or die "Can't create $file: $!";
37fa004c 24
84902520
TB
25# extract patchlevel.h information
26
1948c06a
CN
27open PATCH_LEVEL, "<" . catfile(updir, "patchlevel.h")
28 or die "Can't open patchlevel.h: $!";
84902520
TB
29
30my $patchlevel_date = (stat PATCH_LEVEL)[9];
31
32while (<PATCH_LEVEL>) {
fb73857a 33 last if $_ =~ /^\s*static\s+char.*?local_patches\[\]\s*=\s*{\s*$/;
55d729e4 34}
84902520 35
fb73857a 36my @patches;
84902520 37while (<PATCH_LEVEL>) {
fb73857a 38 last if /^\s*}/;
84902520 39 chomp;
5963b987
GS
40 s/^\s+,?\s*"?//;
41 s/"?\s*,?$//;
84902520 42 s/(['\\])/\\$1/g;
fb73857a 43 push @patches, $_ unless $_ eq 'NULL';
55d729e4
GS
44}
45my $patch_desc = "'" . join("',\n '", @patches) . "'";
46my $patch_tags = join "", map /(\S+)/ ? "+$1 " : (), @patches;
84902520 47
c0a6bf09 48close(PATCH_LEVEL) or die "Error closing patchlevel.h: $!";
84902520 49
5edeba26
TB
50# TO DO (prehaps): store/embed $Config::config_sh into perlbug. When perlbug is
51# used, compare $Config::config_sh with the stored version. If they differ then
52# append a list of individual differences to the bug report.
53
84902520 54
37fa004c
PP
55print "Extracting $file (with variable substitutions)\n";
56
57# In this section, perl variables will be expanded during extraction.
58# You can use $Config{...} to use Configure variables.
59
b22c7a20 60my $extract_version = sprintf("v%vd", $^V);
1ec03f31 61
37fa004c 62print OUT <<"!GROK!THIS!";
5f05dabc
PP
63$Config{startperl}
64 eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
65 if \$running_under_some_shell;
84902520 66
1ec03f31 67my \$config_tag1 = '$extract_version - $Config{cf_time}';
fb73857a 68
84902520 69my \$patchlevel_date = $patchlevel_date;
fb73857a
PP
70my \$patch_tags = '$patch_tags';
71my \@patches = (
55d729e4 72 $patch_desc
fb73857a 73);
37fa004c
PP
74!GROK!THIS!
75
76# In the following, perl variables are not expanded during extraction.
77
78print OUT <<'!NO!SUBS!';
79
80use Config;
1ec03f31 81use File::Spec; # keep perlbug Perl 5.005 compatible
37fa004c 82use Getopt::Std;
37fa004c
PP
83use strict;
84
85sub paraprint;
86
55d729e4
GS
87BEGIN {
88 eval "use Mail::Send;";
89 $::HaveSend = ($@ eq "");
90 eval "use Mail::Util;";
91 $::HaveUtil = ($@ eq "");
92};
c07a80fd 93
489b74f8 94my $Version = "1.33";
c07a80fd
PP
95
96# Changed in 1.06 to skip Mail::Send and Mail::Util if not available.
a5f75d66
AD
97# Changed in 1.07 to see more sendmail execs, and added pipe output.
98# Changed in 1.08 to use correct address for sendmail.
c07a80fd
PP
99# Changed in 1.09 to close the REP file before calling it up in the editor.
100# Also removed some old comments duplicated elsewhere.
101# Changed in 1.10 to run under VMS without Mail::Send; also fixed
a5f75d66 102# temp filename generation.
c07a80fd 103# Changed in 1.11 to clean up some text and removed Mail::Send deactivator.
a5f75d66
AD
104# Changed in 1.12 to check for editor errors, make save/send distinction
105# clearer and add $ENV{REPLYTO}.
84478119
PP
106# Changed in 1.13 to hopefully make it more difficult to accidentally
107# send mail
ab3ef367
PP
108# Changed in 1.14 to make the prompts a little more clear on providing
109# helpful information. Also let file read fail gracefully.
8ecf1a0c
KA
110# Changed in 1.15 to add warnings to stop people using perlbug for non-bugs.
111# Also report selected environment variables.
774d564b 112# Changed in 1.16 to include @INC, and allow user to re-edit if no changes.
137443ea 113# Changed in 1.17 Win32 support added. GSAR 97-04-12
1b0e3b9e 114# Changed in 1.18 add '-ok' option for reporting build success. CFR 97-06-18
84902520
TB
115# Changed in 1.19 '-ok' default not '-v'
116# add local patch information
117# warn on '-ok' if this is an old system; add '-okay'
fb73857a 118# Changed in 1.20 Added patchlevel.h reading and version/config checks
55d729e4
GS
119# Changed in 1.21 Added '-nok' for reporting build failure DFD 98-05-05
120# Changed in 1.22 Heavy reformatting & minor bugfixes HVDS 98-05-10
cca87523 121# Changed in 1.23 Restore -ok(ay): say 'success'; don't prompt
105f9295 122# Changed in 1.24 Added '-F<file>' to save report HVDS 98-07-01
8b49bb9a 123# Changed in 1.25 Warn on failure to open save file. HVDS 98-07-12
eedd3c36 124# Changed in 1.26 Don't require -t STDIN for -ok. HVDS 98-07-15
1948c06a 125# Changed in 1.27 Added Mac OS and File::Spec support CNANDOR 99-07-27
50d3c28b 126# Changed in 1.28 Additional questions for Perlbugtron RFOLEY 20.03.2000
975b416b 127# Changed in 1.29 Perlbug(tron): auto(-ok), short prompts RFOLEY 05-05-2000
b0c10877 128# Changed in 1.30 Added warnings on failure to open files MSTEVENS 13-07-2000
c0a6bf09 129# Changed in 1.31 Add checks on close().Fix my $var unless. TJENNESS 26-07-2000
93b42772 130# Changed in 1.32 Use File::Spec->tmpdir TJENNESS 20-08-2000
489b74f8 131# Changed in 1.33 Don't require -t STDOUT for -ok.
c07a80fd 132
1b0e3b9e 133# TODO: - Allow the user to re-name the file on mail failure, and
55d729e4 134# make sure failure (transmission-wise) of Mail::Send is
c07a80fd 135# accounted for.
1b0e3b9e 136# - Test -b option
37fa004c 137
ab3ef367 138my( $file, $usefile, $cc, $address, $perlbug, $testaddress, $filename,
7f2de2d2 139 $subject, $from, $verbose, $ed, $outfile, $Is_MacOS, $category, $severity,
1b0e3b9e 140 $fh, $me, $Is_MSWin32, $Is_VMS, $msg, $body, $andcc, %REP, $ok);
37fa004c 141
b22c7a20 142my $perl_version = $^V ? sprintf("v%vd", $^V) : $];
1ec03f31
GS
143
144my $config_tag2 = "$perl_version - $Config{cf_time}";
fb73857a 145
37fa004c
PP
146Init();
147
55d729e4
GS
148if ($::opt_h) { Help(); exit; }
149if ($::opt_d) { Dump(*STDOUT); exit; }
eedd3c36 150if (!-t STDIN && !($ok and not $::opt_n)) {
55d729e4
GS
151 paraprint <<EOF;
152Please use perlbug interactively. If you want to
84478119
PP
153include a file, you can use the -f switch.
154EOF
55d729e4 155 die "\n";
84478119 156}
c07a80fd 157
37fa004c 158Query();
cca87523 159Edit() unless $usefile || ($ok and not $::opt_n);
37fa004c
PP
160NowWhat();
161Send();
162
163exit;
164
975b416b 165sub ask_for_alternatives { # (category|severity)
50d3c28b 166 my $name = shift;
975b416b
GS
167 my %alts = (
168 'category' => {
169 'default' => 'core',
170 'ok' => 'install',
171 'opts' => [qw(core docs install library utilities)], # patch, notabug
172 },
173 'severity' => {
174 'default' => 'low',
175 'ok' => 'none',
176 'opts' => [qw(critical high medium low wishlist none)], # zero
7f2de2d2 177 },
975b416b 178 );
7f2de2d2 179 die "Invalid alternative($name) requested\n" unless grep(/^$name$/, keys %alts);
50d3c28b 180 my $alt = "";
975b416b
GS
181 if ($ok) {
182 $alt = $alts{$name}{'ok'};
183 } else {
184 my @alts = @{$alts{$name}{'opts'}};
185 paraprint <<EOF;
50d3c28b
GS
186Please pick a \u$name from the following:
187
188 @alts
189
190EOF
975b416b
GS
191 my $err = 0;
192 do {
193 if ($err++ > 5) {
194 die "Invalid $name: aborting.\n";
195 }
196 print "Please enter a \u$name [$alts{$name}{'default'}]: ";
197 $alt = <>;
198 chomp $alt;
199 if ($alt =~ /^\s*$/) {
200 $alt = $alts{$name}{'default'};
201 }
202 } while !((($alt) = grep(/^$alt/i, @alts)));
203 }
50d3c28b
GS
204 lc $alt;
205}
206
37fa004c 207sub Init {
55d729e4
GS
208 # -------- Setup --------
209
210 $Is_MSWin32 = $^O eq 'MSWin32';
211 $Is_VMS = $^O eq 'VMS';
1948c06a
CN
212 $Is_MacOS = $^O eq 'MacOS';
213
214 @ARGV = split m/\s+/,
215 MacPerl::Ask('Provide command-line args here (-h for help):')
216 if $Is_MacOS && $MacPerl::Version =~ /App/;
55d729e4 217
890b8eb0 218 if (!getopts("Adhva:s:b:f:F:r:e:SCc:to:n:")) { Help(); exit; };
55d729e4
GS
219
220 # This comment is needed to notify metaconfig that we are
221 # using the $perladmin, $cf_by, and $cf_time definitions.
222
223 # -------- Configuration ---------
224
225 # perlbug address
8db473c3 226 $perlbug = 'perlbug@perl.org';
55d729e4
GS
227
228 # Test address
229 $testaddress = 'perlbug-test@perl.com';
230
231 # Target address
232 $address = $::opt_a || ($::opt_t ? $testaddress : $perlbug);
233
234 # Users address, used in message and in Reply-To header
235 $from = $::opt_r || "";
236
237 # Include verbose configuration information
238 $verbose = $::opt_v || 0;
239
240 # Subject of bug-report message
241 $subject = $::opt_s || "";
242
243 # Send a file
244 $usefile = ($::opt_f || 0);
245
246 # File to send as report
247 $file = $::opt_f || "";
248
105f9295
HS
249 # File to output to
250 $outfile = $::opt_F || "";
251
55d729e4
GS
252 # Body of report
253 $body = $::opt_b || "";
254
255 # Editor
256 $ed = $::opt_e || $ENV{VISUAL} || $ENV{EDITOR} || $ENV{EDIT}
257 || ($Is_VMS && "edit/tpu")
258 || ($Is_MSWin32 && "notepad")
1948c06a 259 || ($Is_MacOS && '')
55d729e4
GS
260 || "vi";
261
262 # Not OK - provide build failure template by finessing OK report
263 if ($::opt_n) {
264 if (substr($::opt_n, 0, 2) eq 'ok' ) {
265 $::opt_o = substr($::opt_n, 1);
266 } else {
267 Help();
268 exit();
269 }
270 }
271
272 # OK - send "OK" report for build on this system
273 $ok = 0;
274 if ($::opt_o) {
275 if ($::opt_o eq 'k' or $::opt_o eq 'kay') {
276 my $age = time - $patchlevel_date;
277 if ($::opt_o eq 'k' and $age > 60 * 24 * 60 * 60 ) {
278 my $date = localtime $patchlevel_date;
279 print <<"EOF";
280"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
281are more than 60 days old. This Perl version was constructed on
282$date. If you really want to report this, use
283"perlbug -okay" or "perlbug -nokay".
84902520 284EOF
1b0e3b9e
CR
285 exit();
286 }
55d729e4
GS
287 # force these options
288 unless ($::opt_n) {
289 $::opt_S = 1; # don't prompt for send
290 $::opt_b = 1; # we have a body
291 $body = "Perl reported to build OK on this system.\n";
292 }
293 $::opt_C = 1; # don't send a copy to the local admin
294 $::opt_s = 1; # we have a subject line
295 $subject = ($::opt_n ? 'Not ' : '')
1ec03f31 296 . "OK: perl $perl_version ${patch_tags}on"
55d729e4
GS
297 ." $::Config{'archname'} $::Config{'osvers'} $subject";
298 $ok = 1;
299 } else {
300 Help();
301 exit();
1b0e3b9e 302 }
55d729e4 303 }
37fa004c 304
55d729e4
GS
305 # Possible administrator addresses, in order of confidence
306 # (Note that cf_email is not mentioned to metaconfig, since
307 # we don't really want it. We'll just take it if we have to.)
308 #
309 # This has to be after the $ok stuff above because of the way
310 # that $::opt_C is forced.
311 $cc = $::opt_C ? "" : (
312 $::opt_c || $::Config{'perladmin'}
313 || $::Config{'cf_email'} || $::Config{'cf_by'}
314 );
315
316 # My username
317 $me = $Is_MSWin32 ? $ENV{'USERNAME'}
318 : $^O eq 'os2' ? $ENV{'USER'} || $ENV{'LOGNAME'}
1948c06a 319 : $Is_MacOS ? $ENV{'USER'}
55d729e4 320 : eval { getpwuid($<) }; # May be missing
c0830f08
RB
321
322 $from = $::Config{'cf_email'}
323 if !$from && $::Config{'cf_email'} && $::Config{'cf_by'} && $me &&
324 ($me eq $::Config{'cf_by'});
55d729e4 325} # sub Init
37fa004c
PP
326
327sub Query {
55d729e4
GS
328 # Explain what perlbug is
329 unless ($ok) {
37fa004c 330 paraprint <<EOF;
8ecf1a0c
KA
331This program provides an easy way to create a message reporting a bug
332in perl, and e-mail it to $address. It is *NOT* intended for
54310121
PP
333sending test messages or simply verifying that perl works, *NOR* is it
334intended for reporting bugs in third-party perl modules. It is *ONLY*
335a means of reporting verifiable problems with the core perl distribution,
336and any solutions to such problems, to the people who maintain perl.
337
338If you're just looking for help with perl, try posting to the Usenet
339newsgroup comp.lang.perl.misc. If you're looking for help with using
340perl with CGI, try posting to comp.infosystems.www.programming.cgi.
37fa004c 341EOF
1b0e3b9e 342 }
37fa004c 343
55d729e4
GS
344 # Prompt for subject of message, if needed
345 unless ($subject) {
346 paraprint <<EOF;
347First of all, please provide a subject for the
348message. It should be a concise description of
774d564b
PP
349the bug or problem. "perl bug" or "perl problem"
350is not a concise description.
37fa004c 351EOF
55d729e4
GS
352 print "Subject: ";
353 $subject = <>;
354
355 my $err = 0;
356 while ($subject !~ /\S/) {
357 print "\nPlease enter a subject: ";
358 $subject = <>;
359 if ($err++ > 5) {
360 die "Aborting.\n";
361 }
37fa004c 362 }
55d729e4
GS
363 chop $subject;
364 }
365
366 # Prompt for return address, if needed
367 unless ($from) {
368 # Try and guess return address
369 my $guess;
370
371 $guess = $ENV{'REPLY-TO'} || $ENV{'REPLYTO'} || '';
1948c06a
CN
372 if ($Is_MacOS) {
373 require Mac::InternetConfig;
374 $guess = $Mac::InternetConfig::InternetConfig{
375 Mac::InternetConfig::kICEmail()
376 };
377 }
378
55d729e4
GS
379 unless ($guess) {
380 my $domain;
381 if ($::HaveUtil) {
382 $domain = Mail::Util::maildomain();
383 } elsif ($Is_MSWin32) {
384 $domain = $ENV{'USERDOMAIN'};
385 } else {
386 require Sys::Hostname;
387 $domain = Sys::Hostname::hostname();
388 }
389 if ($domain) {
390 if ($Is_VMS && !$::Config{'d_socket'}) {
391 $guess = "$domain\:\:$me";
41f926b8 392 } else {
55d729e4 393 $guess = "$me\@$domain" if $domain;
c07a80fd 394 }
55d729e4
GS
395 }
396 }
37fa004c 397
55d729e4
GS
398 if ($guess) {
399 unless ($ok) {
400 paraprint <<EOF;
a5f75d66
AD
401Your e-mail address will be useful if you need to be contacted. If the
402default shown is not your full internet e-mail address, please correct it.
37fa004c 403EOF
55d729e4
GS
404 }
405 } else {
406 paraprint <<EOF;
407So that you may be contacted if necessary, please enter
a5f75d66 408your full internet e-mail address here.
37fa004c 409EOF
37fa004c 410 }
37fa004c 411
55d729e4
GS
412 if ($ok && $guess) {
413 # use it
414 $from = $guess;
415 } else {
416 # verify it
417 print "Your address [$guess]: ";
418 $from = <>;
419 chop $from;
420 $from = $guess if $from eq '';
421 }
422 }
37fa004c 423
55d729e4
GS
424 if ($from eq $cc or $me eq $cc) {
425 # Try not to copy ourselves
426 $cc = "yourself";
427 }
37fa004c 428
55d729e4
GS
429 # Prompt for administrator address, unless an override was given
430 if( !$::opt_C and !$::opt_c ) {
431 paraprint <<EOF;
37fa004c 432A copy of this report can be sent to your local
55d729e4 433perl administrator. If the address is wrong, please
c07a80fd
PP
434correct it, or enter 'none' or 'yourself' to not send
435a copy.
37fa004c 436EOF
55d729e4
GS
437 print "Local perl administrator [$cc]: ";
438 my $entry = scalar <>;
439 chop $entry;
37fa004c 440
55d729e4
GS
441 if ($entry ne "") {
442 $cc = $entry;
443 $cc = '' if $me eq $cc;
37fa004c 444 }
55d729e4 445 }
37fa004c 446
55d729e4
GS
447 $cc = '' if $cc =~ /^(none|yourself|me|myself|ourselves)$/i;
448 $andcc = " and $cc" if $cc;
37fa004c 449
55d729e4 450 # Prompt for editor, if no override is given
ab3ef367 451editor:
55d729e4
GS
452 unless ($::opt_e || $::opt_f || $::opt_b) {
453 paraprint <<EOF;
c07a80fd 454Now you need to supply the bug report. Try to make
55d729e4 455the report concise but descriptive. Include any
ab3ef367
PP
456relevant detail. If you are reporting something
457that does not work as you think it should, please
55d729e4 458try to include example of both the actual
ab3ef367
PP
459result, and what you expected.
460
461Some information about your local
55d729e4 462perl configuration will automatically be included
ab3ef367
PP
463at the end of the report. If you are using any
464unusual version of perl, please try and confirm
465exactly which versions are relevant.
37fa004c
PP
466
467You will probably want to use an editor to enter
468the report. If "$ed" is the editor you want
469to use, then just press Enter, otherwise type in
470the name of the editor you would like to use.
471
c07a80fd 472If you would like to use a prepared file, type
37fa004c 473"file", and you will be asked for the filename.
37fa004c 474EOF
55d729e4
GS
475 print "Editor [$ed]: ";
476 my $entry =scalar <>;
477 chop $entry;
478
479 $usefile = 0;
480 if ($entry eq "file") {
481 $usefile = 1;
482 } elsif ($entry ne "") {
483 $ed = $entry;
37fa004c 484 }
55d729e4 485 }
37fa004c 486
50d3c28b 487 # Prompt for category of bug
975b416b 488 $category ||= ask_for_alternatives('category');
50d3c28b
GS
489
490 # Prompt for severity of bug
975b416b 491 $severity ||= ask_for_alternatives('severity');
50d3c28b 492
55d729e4
GS
493 # Generate scratch file to edit report in
494 $filename = filename();
37fa004c 495
55d729e4
GS
496 # Prompt for file to read report from, if needed
497 if ($usefile and !$file) {
ab3ef367 498filename:
55d729e4 499 paraprint <<EOF;
37fa004c 500What is the name of the file that contains your report?
37fa004c 501EOF
55d729e4
GS
502 print "Filename: ";
503 my $entry = scalar <>;
504 chop $entry;
37fa004c 505
55d729e4
GS
506 if ($entry eq "") {
507 paraprint <<EOF;
508No filename? I'll let you go back and choose an editor again.
ab3ef367 509EOF
55d729e4
GS
510 goto editor;
511 }
512
513 unless (-f $entry and -r $entry) {
514 paraprint <<EOF;
ab3ef367
PP
515I'm sorry, but I can't read from `$entry'. Maybe you mistyped the name of
516the file? If you don't want to send a file, just enter a blank line and you
517can get back to the editor selection.
ab3ef367 518EOF
55d729e4 519 goto filename;
37fa004c 520 }
55d729e4
GS
521 $file = $entry;
522 }
37fa004c 523
55d729e4 524 # Generate report
b0c10877 525 open(REP,">$filename") or die "Unable to create report file `$filename': $!\n";
cca87523 526 my $reptype = !$ok ? "bug" : $::opt_n ? "build failure" : "success";
37fa004c 527
55d729e4 528 print REP <<EOF;
84902520 529This is a $reptype report for perl from $from,
1ec03f31 530generated with the help of perlbug $Version running under perl $perl_version.
37fa004c
PP
531
532EOF
533
55d729e4
GS
534 if ($body) {
535 print REP $body;
536 } elsif ($usefile) {
537 open(F, "<$file")
538 or die "Unable to read report file from `$file': $!\n";
539 while (<F>) {
540 print REP $_
541 }
c0a6bf09 542 close(F) or die "Error closing `$file': $!";
55d729e4
GS
543 } else {
544 print REP <<EOF;
774d564b
PP
545
546-----------------------------------------------------------------
547[Please enter your report here]
548
549
550
551[Please do not change anything below this line]
552-----------------------------------------------------------------
553EOF
55d729e4
GS
554 }
555 Dump(*REP);
c0a6bf09 556 close(REP) or die "Error closing report file: $!";
55d729e4
GS
557
558 # read in the report template once so that
559 # we can track whether the user does any editing.
560 # yes, *all* whitespace is ignored.
b0c10877 561 open(REP, "<$filename") or die "Unable to open report file `$filename': $!\n";
55d729e4
GS
562 while (<REP>) {
563 s/\s+//g;
564 $REP{$_}++;
565 }
c0a6bf09 566 close(REP) or die "Error closing report file `$filename': $!";
55d729e4 567} # sub Query
c07a80fd
PP
568
569sub Dump {
55d729e4 570 local(*OUT) = @_;
37fa004c 571
50d3c28b
GS
572 print OUT <<EFF;
573---
574Flags:
575 category=$category
576 severity=$severity
890b8eb0
NC
577EFF
578 if ($::opt_A) {
579 print OUT <<EFF;
580 ack=no
581EFF
582 }
583 print OUT <<EFF;
50d3c28b
GS
584---
585EFF
586 print OUT "This perlbug was built using Perl $config_tag1\n",
1ec03f31 587 "It is being executed now by Perl $config_tag2.\n\n"
55d729e4 588 if $config_tag2 ne $config_tag1;
fb73857a 589
55d729e4 590 print OUT <<EOF;
1ec03f31 591Site configuration information for perl $perl_version:
37fa004c
PP
592
593EOF
55d729e4
GS
594 if ($::Config{cf_by} and $::Config{cf_time}) {
595 print OUT "Configured by $::Config{cf_by} at $::Config{cf_time}.\n\n";
596 }
597 print OUT Config::myconfig;
37fa004c 598
55d729e4
GS
599 if (@patches) {
600 print OUT join "\n ", "Locally applied patches:", @patches;
601 print OUT "\n";
602 };
84902520 603
55d729e4 604 print OUT <<EOF;
8ecf1a0c 605
774d564b 606---
1ec03f31 607\@INC for perl $perl_version:
774d564b 608EOF
55d729e4
GS
609 for my $i (@INC) {
610 print OUT " $i\n";
611 }
774d564b 612
55d729e4 613 print OUT <<EOF;
8ecf1a0c 614
774d564b 615---
1ec03f31 616Environment for perl $perl_version:
8ecf1a0c 617EOF
5cf1d1f1
JH
618 my @env =
619 qw(PATH LD_LIBRARY_PATH LANG PERL_BADLANG SHELL HOME LOGDIR LANGUAGE);
620 push @env, $Config{ldlibpthname} if $Config{ldlibpthname} ne '';
27414c22 621 push @env, grep /^(?:PERL|LC_|LANG|CYGWIN)/, keys %ENV;
8876aa85
JH
622 my %env;
623 @env{@env} = @env;
624 for my $env (sort keys %env) {
55d729e4
GS
625 print OUT " $env",
626 exists $ENV{$env} ? "=$ENV{$env}" : ' (unset)',
627 "\n";
628 }
629 if ($verbose) {
1ec03f31 630 print OUT "\nComplete configuration data for perl $perl_version:\n\n";
55d729e4
GS
631 my $value;
632 foreach (sort keys %::Config) {
633 $value = $::Config{$_};
634 $value =~ s/'/\\'/g;
635 print OUT "$_='$value'\n";
84902520 636 }
55d729e4
GS
637 }
638} # sub Dump
37fa004c
PP
639
640sub Edit {
55d729e4
GS
641 # Edit the report
642 if ($usefile || $body) {
643 paraprint <<EOF;
ab3ef367 644Please make sure that the name of the editor you want to use is correct.
ab3ef367 645EOF
55d729e4
GS
646 print "Editor [$ed]: ";
647 my $entry =scalar <>;
648 chop $entry;
649 $ed = $entry unless $entry eq '';
650 }
a5f75d66 651
55d729e4 652tryagain:
c0a6bf09
TJ
653 my $sts;
654 $sts = system("$ed $filename") unless $Is_MacOS;
1948c06a
CN
655 if ($Is_MacOS) {
656 require ExtUtils::MakeMaker;
657 ExtUtils::MM_MacOS::launch_file($filename);
658 paraprint <<EOF;
659Press Enter when done.
660EOF
661 scalar <>;
662 }
55d729e4
GS
663 if ($sts) {
664 paraprint <<EOF;
a5f75d66
AD
665The editor you chose (`$ed') could apparently not be run!
666Did you mistype the name of your editor? If so, please
55d729e4 667correct it here, otherwise just press Enter.
a5f75d66 668EOF
55d729e4
GS
669 print "Editor [$ed]: ";
670 my $entry =scalar <>;
671 chop $entry;
a5f75d66 672
55d729e4
GS
673 if ($entry ne "") {
674 $ed = $entry;
675 goto tryagain;
676 } else {
677 paraprint <<EOF;
a5f75d66
AD
678You may want to save your report to a file, so you can edit and mail it
679yourself.
680EOF
774d564b 681 }
55d729e4 682 }
774d564b 683
55d729e4
GS
684 return if ($ok and not $::opt_n) || $body;
685 # Check that we have a report that has some, eh, report in it.
686 my $unseen = 0;
687
b0c10877 688 open(REP, "<$filename") or die "Couldn't open `$filename': $!\n";
55d729e4
GS
689 # a strange way to check whether any significant editing
690 # have been done: check whether any new non-empty lines
691 # have been added. Yes, the below code ignores *any* space
692 # in *any* line.
693 while (<REP>) {
694 s/\s+//g;
695 $unseen++ if $_ ne '' and not exists $REP{$_};
696 }
774d564b 697
55d729e4
GS
698 while ($unseen == 0) {
699 paraprint <<EOF;
774d564b 700I am sorry but it looks like you did not report anything.
774d564b 701EOF
55d729e4
GS
702 print "Action (Retry Edit/Cancel) ";
703 my ($action) = scalar(<>);
704 if ($action =~ /^[re]/i) { # <R>etry <E>dit
705 goto tryagain;
706 } elsif ($action =~ /^[cq]/i) { # <C>ancel, <Q>uit
707 Cancel();
708 }
709 }
710} # sub Edit
774d564b
PP
711
712sub Cancel {
713 1 while unlink($filename); # remove all versions under VMS
714 print "\nCancelling.\n";
715 exit(0);
37fa004c
PP
716}
717
718sub NowWhat {
55d729e4
GS
719 # Report is done, prompt for further action
720 if( !$::opt_S ) {
721 while(1) {
722 paraprint <<EOF;
723Now that you have completed your report, would you like to send
724the message to $address$andcc, display the message on
37fa004c
PP
725the screen, re-edit it, or cancel without sending anything?
726You may also save the message as a file to mail at another time.
37fa004c 727EOF
8b49bb9a 728 retry:
55d729e4
GS
729 print "Action (Send/Display/Edit/Cancel/Save to File): ";
730 my $action = scalar <>;
731 chop $action;
732
733 if ($action =~ /^(f|sa)/i) { # <F>ile/<Sa>ve
fd49642c
PP
734 my $file_save = $outfile || "perlbug.rep";
735 print "\n\nName of file to save message in [$file_save]: ";
55d729e4
GS
736 my $file = scalar <>;
737 chop $file;
fd49642c 738 $file = $file_save if $file eq "";
55d729e4 739
8b49bb9a
HS
740 unless (open(FILE, ">$file")) {
741 print "\nError opening $file: $!\n\n";
742 goto retry;
743 }
b0c10877 744 open(REP, "<$filename") or die "Couldn't open file `$filename': $!\n";
55d729e4
GS
745 print FILE "To: $address\nSubject: $subject\n";
746 print FILE "Cc: $cc\n" if $cc;
747 print FILE "Reply-To: $from\n" if $from;
748 print FILE "\n";
749 while (<REP>) { print FILE }
c0a6bf09
TJ
750 close(REP) or die "Error closing report file `$filename': $!";
751 close(FILE) or die "Error closing $file: $!";
55d729e4
GS
752
753 print "\nMessage saved in `$file'.\n";
754 exit;
755 } elsif ($action =~ /^(d|l|sh)/i ) { # <D>isplay, <L>ist, <Sh>ow
756 # Display the message
b0c10877 757 open(REP, "<$filename") or die "Couldn't open file `$filename': $!\n";
55d729e4 758 while (<REP>) { print $_ }
c0a6bf09 759 close(REP) or die "Error closing report file `$filename': $!";
55d729e4
GS
760 } elsif ($action =~ /^se/i) { # <S>end
761 # Send the message
762 print "Are you certain you want to send this message?\n"
763 . 'Please type "yes" if you are: ';
764 my $reply = scalar <STDIN>;
765 chop $reply;
766 if ($reply eq "yes") {
767 last;
768 } else {
769 paraprint <<EOF;
ab3ef367
PP
770That wasn't a clear "yes", so I won't send your message. If you are sure
771your message should be sent, type in "yes" (without the quotes) at the
772confirmation prompt.
ab3ef367 773EOF
55d729e4
GS
774 }
775 } elsif ($action =~ /^[er]/i) { # <E>dit, <R>e-edit
776 # edit the message
777 Edit();
778 } elsif ($action =~ /^[qc]/i) { # <C>ancel, <Q>uit
779 Cancel();
01544859 780 } elsif ($action =~ /^s/i) {
55d729e4 781 paraprint <<EOF;
84478119
PP
782I'm sorry, but I didn't understand that. Please type "send" or "save".
783EOF
55d729e4 784 }
37fa004c 785 }
55d729e4
GS
786 }
787} # sub NowWhat
37fa004c
PP
788
789sub Send {
55d729e4 790 # Message has been accepted for transmission -- Send the message
105f9295
HS
791 if ($outfile) {
792 open SENDMAIL, ">$outfile" or die "Couldn't open '$outfile': $!\n";
793 goto sendout;
794 }
55d729e4
GS
795 if ($::HaveSend) {
796 $msg = new Mail::Send Subject => $subject, To => $address;
797 $msg->cc($cc) if $cc;
798 $msg->add("Reply-To",$from) if $from;
799
800 $fh = $msg->open;
b0c10877 801 open(REP, "<$filename") or die "Couldn't open `$filename': $!\n";
55d729e4 802 while (<REP>) { print $fh $_ }
c0a6bf09 803 close(REP) or die "Error closing $filename: $!";
55d729e4
GS
804 $fh->close;
805
806 print "\nMessage sent.\n";
807 } elsif ($Is_VMS) {
808 if ( ($address =~ /@/ and $address !~ /^\w+%"/) or
809 ($cc =~ /@/ and $cc !~ /^\w+%"/) ) {
810 my $prefix;
811 foreach (qw[ IN MX SMTP UCX PONY WINS ], '') {
812 $prefix = "$_%", last if $ENV{"MAIL\$PROTOCOL_$_"};
813 }
814 $address = qq[${prefix}"$address"] unless $address =~ /^\w+%"/;
815 $cc = qq[${prefix}"$cc"] unless !$cc || $cc =~ /^\w+%"/;
816 }
817 $subject =~ s/"/""/g; $address =~ s/"/""/g; $cc =~ s/"/""/g;
818 my $sts = system(qq[mail/Subject="$subject" $filename. "$address","$cc"]);
819 if ($sts) {
820 die <<EOF;
821Can't spawn off mail
822 (leaving bug report in $filename): $sts
823EOF
824 }
825 } else {
826 my $sendmail = "";
827 for (qw(/usr/lib/sendmail /usr/sbin/sendmail /usr/ucblib/sendmail)) {
828 $sendmail = $_, last if -e $_;
829 }
830 if ($^O eq 'os2' and $sendmail eq "") {
831 my $path = $ENV{PATH};
832 $path =~ s:\\:/: ;
833 my @path = split /$Config{'path_sep'}/, $path;
834 for (@path) {
835 $sendmail = "$_/sendmail", last if -e "$_/sendmail";
836 $sendmail = "$_/sendmail.exe", last if -e "$_/sendmail.exe";
837 }
838 }
37fa004c 839
55d729e4 840 paraprint(<<"EOF"), die "\n" if $sendmail eq "";
c07a80fd
PP
841I am terribly sorry, but I cannot find sendmail, or a close equivalent, and
842the perl package Mail::Send has not been installed, so I can't send your bug
d121ca8c 843report. We apologize for the inconvenience.
c07a80fd
PP
844
845So you may attempt to find some way of sending your message, it has
846been left in the file `$filename'.
c07a80fd 847EOF
01544859 848 open(SENDMAIL, "|$sendmail -t -oi") || die "'|$sendmail -t -oi' failed: $!";
105f9295 849sendout:
55d729e4
GS
850 print SENDMAIL "To: $address\n";
851 print SENDMAIL "Subject: $subject\n";
852 print SENDMAIL "Cc: $cc\n" if $cc;
853 print SENDMAIL "Reply-To: $from\n" if $from;
854 print SENDMAIL "\n\n";
b0c10877 855 open(REP, "<$filename") or die "Couldn't open `$filename': $!\n";
55d729e4 856 while (<REP>) { print SENDMAIL $_ }
c0a6bf09 857 close(REP) or die "Error closing $filename: $!";
37fa004c 858
55d729e4 859 if (close(SENDMAIL)) {
105f9295 860 printf "\nMessage %s.\n", $outfile ? "saved" : "sent";
55d729e4
GS
861 } else {
862 warn "\nSendmail returned status '", $? >> 8, "'\n";
863 }
864 }
865 1 while unlink($filename); # remove all versions under VMS
866} # sub Send
37fa004c
PP
867
868sub Help {
55d729e4 869 print <<EOF;
37fa004c 870
55d729e4 871A program to help generate bug reports about perl5, and mail them.
37fa004c
PP
872It is designed to be used interactively. Normally no arguments will
873be needed.
55d729e4 874
37fa004c 875Usage:
105f9295 876$0 [-v] [-a address] [-s subject] [-b body | -f inpufile ] [ -F outputfile ]
d121ca8c 877 [-r returnaddress] [-e editor] [-c adminaddress | -C] [-S] [-t] [-h]
890b8eb0 878$0 [-v] [-r returnaddress] [-A] [-ok | -okay | -nok | -nokay]
55d729e4 879
c07a80fd 880Simplest usage: run "$0", and follow the prompts.
37fa004c
PP
881
882Options:
883
884 -v Include Verbose configuration data in the report
55d729e4 885 -f File containing the body of the report. Use this to
37fa004c 886 quickly send a prepared message.
1948c06a 887 -F File to output the resulting mail message to, instead of mailing.
37fa004c
PP
888 -S Send without asking for confirmation.
889 -a Address to send the report to. Defaults to `$address'.
890 -c Address to send copy of report to. Defaults to `$cc'.
891 -C Don't send copy to administrator.
55d729e4 892 -s Subject to include with the message. You will be prompted
37fa004c
PP
893 if you don't supply one on the command line.
894 -b Body of the report. If not included on the command line, or
895 in a file with -f, you will get a chance to edit the message.
896 -r Your return address. The program will ask you to confirm
897 this if you don't give it here.
55d729e4 898 -e Editor to use.
37fa004c 899 -t Test mode. The target address defaults to `$testaddress'.
489b74f8 900 -d Data mode. This prints out your configuration data, without mailing
c07a80fd 901 anything. You can use this with -v to get more complete data.
890b8eb0 902 -A Don't send a bug received acknowledgement to the return address.
84902520 903 -ok Report successful build on this system to perl porters
55d729e4
GS
904 (use alone or with -v). Only use -ok if *everything* was ok:
905 if there were *any* problems at all, use -nok.
fb73857a 906 -okay As -ok but allow report from old builds.
55d729e4
GS
907 -nok Report unsuccessful build on this system to perl porters
908 (use alone or with -v). You must describe what went wrong
909 in the body of the report which you will be asked to edit.
910 -nokay As -nok but allow report from old builds.
911 -h Print this help message.
912
37fa004c
PP
913EOF
914}
915
55d729e4 916sub filename {
93b42772 917 my $dir = File::Spec->tmpdir();
55d729e4 918 $filename = "bugrep0$$";
1ec03f31
GS
919 $filename++ while -e File::Spec->catfile($dir, $filename);
920 $filename = File::Spec->catfile($dir, $filename);
55d729e4
GS
921}
922
37fa004c
PP
923sub paraprint {
924 my @paragraphs = split /\n{2,}/, "@_";
c07a80fd 925 print "\n\n";
37fa004c 926 for (@paragraphs) { # implicit local $_
55d729e4
GS
927 s/(\S)\s*\n/$1 /g;
928 write;
929 print "\n";
37fa004c 930 }
37fa004c 931}
37fa004c
PP
932
933format STDOUT =
934^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
935$_
936.
d121ca8c
CS
937
938__END__
939
940=head1 NAME
941
942perlbug - how to submit bug reports on Perl
943
944=head1 SYNOPSIS
945
946B<perlbug> S<[ B<-v> ]> S<[ B<-a> I<address> ]> S<[ B<-s> I<subject> ]>
105f9295
HS
947S<[ B<-b> I<body> | B<-f> I<inputfile> ]> S<[ B<-F> I<outputfile> ]>
948S<[ B<-r> I<returnaddress> ]>
d121ca8c 949S<[ B<-e> I<editor> ]> S<[ B<-c> I<adminaddress> | B<-C> ]>
890b8eb0 950S<[ B<-S> ]> S<[ B<-t> ]> S<[ B<-d> ]> S<[ B<-A> ]> S<[ B<-h> ]>
d121ca8c 951
55d729e4 952B<perlbug> S<[ B<-v> ]> S<[ B<-r> I<returnaddress> ]>
890b8eb0 953 S<[ B<-A> ]> S<[ B<-ok> | B<-okay> | B<-nok> | B<-nokay> ]>
1b0e3b9e 954
d121ca8c
CS
955=head1 DESCRIPTION
956
957A program to help generate bug reports about perl or the modules that
55d729e4 958come with it, and mail them.
d121ca8c
CS
959
960If you have found a bug with a non-standard port (one that was not part
961of the I<standard distribution>), a binary distribution, or a
962non-standard module (such as Tk, CGI, etc), then please see the
963documentation that came with that distribution to determine the correct
964place to report bugs.
965
966C<perlbug> is designed to be used interactively. Normally no arguments
967will be needed. Simply run it, and follow the prompts.
968
969If you are unable to run B<perlbug> (most likely because you don't have
970a working setup to send mail that perlbug recognizes), you may have to
7f2de2d2 971compose your own report, and email it to B<perlbug@perl.org>. You might
d121ca8c
CS
972find the B<-d> option useful to get summary information in that case.
973
974In any case, when reporting a bug, please make sure you have run through
975this checklist:
976
977=over 4
978
884baa66 979=item What version of Perl you are running?
d121ca8c
CS
980
981Type C<perl -v> at the command line to find out.
982
983=item Are you running the latest released version of perl?
984
985Look at http://www.perl.com/ to find out. If it is not the latest
986released version, get that one and see whether your bug has been
884baa66 987fixed. Note that bug reports about old versions of Perl, especially
d121ca8c
CS
988those prior to the 5.0 release, are likely to fall upon deaf ears.
989You are on your own if you continue to use perl1 .. perl4.
990
991=item Are you sure what you have is a bug?
992
993A significant number of the bug reports we get turn out to be documented
884baa66 994features in Perl. Make sure the behavior you are witnessing doesn't fall
d121ca8c 995under that category, by glancing through the documentation that comes
884baa66 996with Perl (we'll admit this is no mean task, given the sheer volume of
d121ca8c
CS
997it all, but at least have a look at the sections that I<seem> relevant).
998
999Be aware of the familiar traps that perl programmers of various hues
1000fall into. See L<perltrap>.
1001
f27fa58d
G
1002Check in L<perldiag> to see what any Perl error message(s) mean.
1003If message isn't in perldiag, it probably isn't generated by Perl.
1004Consult your operating system documentation instead.
bdcdfa19 1005
1948c06a
CN
1006If you are on a non-UNIX platform check also L<perlport>, as some
1007features may be unimplemented or work differently.
bdcdfa19 1008
884baa66 1009Try to study the problem under the Perl debugger, if necessary.
d121ca8c
CS
1010See L<perldebug>.
1011
1012=item Do you have a proper test case?
1013
1014The easier it is to reproduce your bug, the more likely it will be
1015fixed, because if no one can duplicate the problem, no one can fix it.
1016A good test case has most of these attributes: fewest possible number
1017of lines; few dependencies on external commands, modules, or
1018libraries; runs on most platforms unimpeded; and is self-documenting.
1019
1020A good test case is almost always a good candidate to be on the perl
1021test suite. If you have the time, consider making your test case so
1022that it will readily fit into the standard test suite.
1023
bdcdfa19
JH
1024Remember also to include the B<exact> error messages, if any.
1025"Perl complained something" is not an exact error message.
1026
1027If you get a core dump (or equivalent), you may use a debugger
1028(B<dbx>, B<gdb>, etc) to produce a stack trace to include in the bug
1029report. NOTE: unless your Perl has been compiled with debug info
1030(often B<-g>), the stack trace is likely to be somewhat hard to use
884baa66 1031because it will most probably contain only the function names and not
bdcdfa19
JH
1032their arguments. If possible, recompile your Perl with debug info and
1033reproduce the dump and the stack trace.
1034
d121ca8c
CS
1035=item Can you describe the bug in plain English?
1036
1037The easier it is to understand a reproducible bug, the more likely it
1038will be fixed. Anything you can provide by way of insight into the
884baa66
JH
1039problem helps a great deal. In other words, try to analyze the
1040problem (to the extent you can) and report your discoveries.
d121ca8c
CS
1041
1042=item Can you fix the bug yourself?
1043
1044A bug report which I<includes a patch to fix it> will almost
1045definitely be fixed. Use the C<diff> program to generate your patches
1046(C<diff> is being maintained by the GNU folks as part of the B<diffutils>
1047package, so you should be able to get it from any of the GNU software
1048repositories). If you do submit a patch, the cool-dude counter at
7f2de2d2 1049perlbug@perl.org will register you as a savior of the world. Your
d121ca8c
CS
1050patch may be returned with requests for changes, or requests for more
1051detailed explanations about your fix.
1052
1053Here are some clues for creating quality patches: Use the B<-c> or
1054B<-u> switches to the diff program (to create a so-called context or
1055unified diff). Make sure the patch is not reversed (the first
1056argument to diff is typically the original file, the second argument
1057your changed file). Make sure you test your patch by applying it with
1058the C<patch> program before you send it on its way. Try to follow the
1059same style as the code you are trying to patch. Make sure your patch
1060really does work (C<make test>, if the thing you're patching supports
1061it).
1062
1063=item Can you use C<perlbug> to submit the report?
1064
1065B<perlbug> will, amongst other things, ensure your report includes
1066crucial information about your version of perl. If C<perlbug> is unable
1067to mail your report after you have typed it in, you may have to compose
1068the message yourself, add the output produced by C<perlbug -d> and email
7f2de2d2 1069it to B<perlbug@perl.org>. If, for some reason, you cannot run
d121ca8c
CS
1070C<perlbug> at all on your system, be sure to include the entire output
1071produced by running C<perl -V> (note the uppercase V).
1072
bdcdfa19 1073Whether you use C<perlbug> or send the email manually, please make
884baa66
JH
1074your Subject line informative. "a bug" not informative. Neither is
1075"perl crashes" nor "HELP!!!". These don't help.
1076A compact description of what's wrong is fine.
bdcdfa19 1077
d121ca8c
CS
1078=back
1079
1080Having done your bit, please be prepared to wait, to be told the bug
884baa66 1081is in your code, or even to get no reply at all. The Perl maintainers
84902520
TB
1082are busy folks, so if your problem is a small one or if it is difficult
1083to understand or already known, they may not respond with a personal reply.
d121ca8c
CS
1084If it is important to you that your bug be fixed, do monitor the
1085C<Changes> file in any development releases since the time you submitted
1086the bug, and encourage the maintainers with kind words (but never any
1087flames!). Feel free to resend your bug report if the next released
1088version of perl comes out and your bug is still present.
1089
1090=head1 OPTIONS
1091
1092=over 8
1093
1094=item B<-a>
1095
7f2de2d2 1096Address to send the report to. Defaults to `perlbug@perl.org'.
d121ca8c 1097
890b8eb0
NC
1098=item B<-A>
1099
1100Don't send a bug received acknowledgement to the reply address.
1101Generally it is only a sensible to use this option if you are a
1102perl maintainer actively watching perl porters for your message to
1103arrive.
1104
d121ca8c
CS
1105=item B<-b>
1106
1107Body of the report. If not included on the command line, or
1108in a file with B<-f>, you will get a chance to edit the message.
1109
1110=item B<-C>
1111
1112Don't send copy to administrator.
1113
1114=item B<-c>
1115
1116Address to send copy of report to. Defaults to the address of the
1117local perl administrator (recorded when perl was built).
1118
1119=item B<-d>
1120
1121Data mode (the default if you redirect or pipe output). This prints out
1122your configuration data, without mailing anything. You can use this
1123with B<-v> to get more complete data.
1124
1125=item B<-e>
1126
55d729e4 1127Editor to use.
d121ca8c
CS
1128
1129=item B<-f>
1130
1131File containing the body of the report. Use this to quickly send a
1132prepared message.
1133
105f9295
HS
1134=item B<-F>
1135
1136File to output the results to instead of sending as an email. Useful
1137particularly when running perlbug on a machine with no direct internet
1138connection.
1139
d121ca8c
CS
1140=item B<-h>
1141
1142Prints a brief summary of the options.
1143
1b0e3b9e
CR
1144=item B<-ok>
1145
84902520
TB
1146Report successful build on this system to perl porters. Forces B<-S>
1147and B<-C>. Forces and supplies values for B<-s> and B<-b>. Only
1b0e3b9e 1148prompts for a return address if it cannot guess it (for use with
84902520
TB
1149B<make>). Honors return address specified with B<-r>. You can use this
1150with B<-v> to get more complete data. Only makes a report if this
1151system is less than 60 days old.
1152
1153=item B<-okay>
1154
1155As B<-ok> except it will report on older systems.
1b0e3b9e 1156
55d729e4
GS
1157=item B<-nok>
1158
1159Report unsuccessful build on this system. Forces B<-C>. Forces and
1160supplies a value for B<-s>, then requires you to edit the report
1161and say what went wrong. Alternatively, a prepared report may be
1162supplied using B<-f>. Only prompts for a return address if it
1163cannot guess it (for use with B<make>). Honors return address
1164specified with B<-r>. You can use this with B<-v> to get more
1165complete data. Only makes a report if this system is less than 60
1166days old.
1167
1168=item B<-nokay>
1169
1170As B<-nok> except it will report on older systems.
1171
d121ca8c
CS
1172=item B<-r>
1173
1174Your return address. The program will ask you to confirm its default
1175if you don't use this option.
1176
1177=item B<-S>
1178
1179Send without asking for confirmation.
1180
1181=item B<-s>
1182
1183Subject to include with the message. You will be prompted if you don't
1184supply one on the command line.
1185
1186=item B<-t>
1187
1188Test mode. The target address defaults to `perlbug-test@perl.com'.
1189
1190=item B<-v>
1191
1192Include verbose configuration data in the report.
1193
1194=back
1195
1196=head1 AUTHORS
1197
1198Kenneth Albanowski (E<lt>kjahds@kjahds.comE<gt>), subsequently I<doc>tored
6e238990 1199by Gurusamy Sarathy (E<lt>gsar@activestate.comE<gt>), Tom Christiansen
1b0e3b9e 1200(E<lt>tchrist@perl.comE<gt>), Nathan Torkington (E<lt>gnat@frii.comE<gt>),
55d729e4 1201Charles F. Randall (E<lt>cfr@pobox.comE<gt>), Mike Guy
bdcdfa19 1202(E<lt>mjtg@cam.a.ukE<gt>), Dominic Dunlop (E<lt>domo@computer.orgE<gt>),
1948c06a 1203Hugo van der Sanden (E<lt>hv@crypt0.demon.co.ukE<gt>),
50d3c28b
GS
1204Jarkko Hietaniemi (E<lt>jhi@iki.fiE<gt>), Chris Nandor
1205(E<lt>pudge@pobox.comE<gt>), Jon Orwant (E<lt>orwant@media.mit.eduE<gt>,
1206and Richard Foley (E<lt>richard@rfi.netE<gt>).
d121ca8c
CS
1207
1208=head1 SEE ALSO
1209
bdcdfa19
JH
1210perl(1), perldebug(1), perldiag(1), perlport(1), perltrap(1),
1211diff(1), patch(1), dbx(1), gdb(1)
d121ca8c
CS
1212
1213=head1 BUGS
1214
1215None known (guess what must have been used to report them?)
1216
1217=cut
1218
37fa004c
PP
1219!NO!SUBS!
1220
1221close OUT or die "Can't close $file: $!";
1222chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
1223exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
8a5546a1 1224chdir $origdir;