From 5edeba26b03ae80ec926e67d2266f2fca8a0c92b Mon Sep 17 00:00:00 2001
From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Fri, 5 Sep 1997 00:00:00 +1200
Subject: perlbug -d non-interactive (with patch)

(this is the same change as commit 3eccf6d0e7f74349d397cf28f511c9dfc1b064ba, but as applied)
---
 utils/perlbug.PL | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'utils/perlbug.PL')

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 43b6bfcd8e..6b670fc46b 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;
-- 
cgit v1.2.1