my @patches;
while (<PATCH_LEVEL>) {
last if /^\s*}/;
+ next if /^\s*#/; # preprocessor stuff
+ next if /PERL_GIT_UNPUSHED_COMMITS/; # XXX expand instead
+ next if /PERL_GIT_UNCOMMITTED_CHANGES/; # XXX expand instead
chomp;
s/^\s+,?\s*"?//;
s/"?\s*,?$//;
save_message_to_disk($outfile);
} else {
Send();
- print "\nThank you for taking the time to file a bug report!\n\n";
+ if ($thanks) {
+ print "\nThank you for taking the time to send a thank-you message!\n\n";
+ } else {
+ print "\nThank you for taking the time to file a bug report!\n\n";
+ }
}
exit;
EOF
$entry = '';
+ } elsif (my $bug_tracker = $Module::CoreList::bug_tracker{$entry}) {
+ paraprint <<"EOF";
+$entry included with core Perl is copied directly from the CPAN distribution.
+Please report bugs in $entry directly to its maintainers using $bug_tracker
+EOF
+ $entry = '';
} elsif ($entry) {
$category ||= 'library';
$report_about_module = $entry;
You have finished composing your message. At this point, you have
a few options. You can:
- * [Se]end the message to $address$andcc,
+ * [Se]nd the message to $address$andcc,
* [D]isplay the message on the screen,
* [R]e-edit the message
* Display or change the message's [su]bject
sub _send_message_sendmail {
my $sendmail = _probe_for_sendmail();
unless ($sendmail) {
- paraprint(<<"EOF"), die "\n";
+ my $message_start = !$Is_Linux && !$Is_OpenBSD ? <<'EOT' : <<'EOT';
It appears that there is no program which looks like "sendmail" on
your system and that the Mail::Send library from CPAN isn't available.
+EOT
+It appears that there is no program which looks like "sendmail" on
+your system.
+EOT
+ paraprint(<<"EOF"), die "\n";
+$message_start
Because of this, there's no easy way to automatically send your
message.
S<[ B<-b> I<body> | B<-f> I<inputfile> ]> S<[ B<-F> I<outputfile> ]>
S<[ B<-r> I<returnaddress> ]>
S<[ B<-e> I<editor> ]> S<[ B<-c> I<adminaddress> | B<-C> ]>
-S<[ B<-S> ]> S<[ B<-t> ]> S<[ B<-d> ]> S<[ B<-A> ]> S<[ B<-h> ]>
+S<[ B<-S> ]> S<[ B<-t> ]> S<[ B<-d> ]> S<[ B<-A> ]> S<[ B<-h> ]> S<[ B<-T> ]>
B<perlbug> S<[ B<-v> ]> S<[ B<-r> I<returnaddress> ]>
S<[ B<-A> ]> S<[ B<-ok> | B<-okay> | B<-nok> | B<-nokay> ]>
+B<perlthanks>
+
=head1 DESCRIPTION
=item Do you have a proper test case?
The easier it is to reproduce your bug, the more likely it will be
-fixed -- if nobody can duplicate your problem, it probably won't be
+fixed -- if nobody can duplicate your problem, it probably won't be
addressed.
A good test case has most of these attributes: short, simple code;
is "perl crashes" nor is "HELP!!!". These don't help. A compact
description of what's wrong is fine.
+=item Can you use C<perlbug> to submit a thank-you note?
+
+Yes, you can do this by either using the C<-T> option, or by invoking
+the program as C<perlthanks>. Thank-you notes are good. It makes people
+smile.
+
=back
Having done your bit, please be prepared to wait, to be told the
Test mode. The target address defaults to B<perlbug-test@perl.org>.
+=item B<-T>
+
+Send a thank-you note instead of a bug report.
+
=item B<-v>
Include verbose configuration data in the report.
projects / p5sagit/p5-mst-13.2.git / blobdiff