From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Thu, 4 Sep 1997 12:00:00 +0000 (+1200)
Subject: perlbug -d non-interactive (with patch)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5edeba26b03ae80ec926e67d2266f2fca8a0c92b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;