Thank you for a thank you, not thank you for a bug report.

p4raw-id: //depot/perl@35120

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index d0263f3..c86478a 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -194,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;