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