Upgrade to Pod-Parser-1.36.

[p5sagit/p5-mst-13.2.git] / utils / perlbug.PL
diff --git a/utils/perlbug.PL b/utils/perlbug.PL

index ce0c221..97cf0c8 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -40,6 +40,7 @@ if (! defined($_)) {
 my @patches;
 while (<PATCH_LEVEL>) {
     last if /^\s*}/;
+    next if /^\s*#/;  # preprocessor stuff
     chomp;
     s/^\s+,?\s*"?//;
     s/"?\s*,?$//;
@@ -193,7 +194,11 @@ if ($outfile) {
     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;
@@ -1211,11 +1216,13 @@ B<perlbug> S<[ B<-v> ]> S<[ B<-a> I<address> ]> S<[ B<-s> I<subject> ]>
 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
 
 
@@ -1296,7 +1303,7 @@ L<perldebug>.
 =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;
@@ -1366,6 +1373,12 @@ your Subject line informative.  "a bug" is not informative.  Neither
 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
@@ -1485,6 +1498,10 @@ supply one on the command line.
 
 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.
@@ -1501,7 +1518,7 @@ Mike Guy (E<lt>mjtg@cam.a.ukE<gt>), Dominic Dunlop
 (E<lt>domo@computer.orgE<gt>), Hugo van der Sanden (E<lt>hv@crypt.org<gt>),
 Jarkko Hietaniemi (E<lt>jhi@iki.fiE<gt>), Chris Nandor
 (E<lt>pudge@pobox.comE<gt>), Jon Orwant (E<lt>orwant@media.mit.eduE<gt>,
-Richard Foley (E<lt>richard@rfi.netE<gt>), and Jesse Vincent
+Richard Foley (E<lt>richard.foley@rfi.netE<gt>), and Jesse Vincent
 (E<lt>jesse@bestpractical.com<gt>).
 
 =head1 SEE ALSO