perlbug -d non-interactive (with patch)

(this is the same change as commit 3eccf6d0e7f74349d397cf28f511c9dfc1b064ba, but as applied)

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 43b6bfc..6b670fc 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -41,6 +41,10 @@ while (<PATCH_LEVEL>) {
 
 close PATCH_LEVEL;
 
+# TO DO (prehaps): store/embed $Config::config_sh into perlbug. When perlbug is
+# used, compare $Config::config_sh with the stored version. If they differ then
+# append a list of individual differences to the bug report.
+
 
 print "Extracting $file (with variable substitutions)\n";
 
@@ -114,6 +118,8 @@ Init();
 
 if($::opt_h) { Help(); exit; }
 
+if($::opt_d) { Dump(*STDOUT); exit; }
+
 if(!-t STDIN) {
        paraprint <<EOF;
 Please use perlbug interactively. If you want to 
@@ -122,7 +128,7 @@ EOF
        die "\n";
 }
 
-if($::opt_d or !-t STDOUT) { Dump(*STDOUT); exit; }
+if(!-t STDOUT) { Dump(*STDOUT); exit; }
 
 Query();
 Edit() unless $usefile;