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