From: Ted Ashton <ashted@southern.edu>
Date: Wed, 6 Aug 1997 22:14:59 +0000 (+1200)
Subject: perlbug -d non-interactive (with patch)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3eccf6d0e7f74349d397cf28f511c9dfc1b064ba;p=p5sagit%2Fp5-mst-13.2.git

perlbug -d non-interactive (with patch)

Greetings,
  When I am writing to module authors about their modules, I sometimes want to
include the output of perlbug -d at the end of my message.  I tried (in vi)
!!perlbug -d, but perlbug complained about being non-interactive.  I checked
the source and found a simple fix.  I split the check for opt_d off from the
!-t STDOUT and moved it above the if(!-t STDIN).

p5p-msgid: 199708071418.KAA15711@ns.southern.edu
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 43b6bfc..62718f2 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -114,6 +114,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 +124,7 @@ EOF
 	die "\n";
 }
 
-if($::opt_d or !-t STDOUT) { Dump(*STDOUT); exit; }
+if(!-t STDOUT) { Dump(*STDOUT); exit; }
 
 Query();
 Edit() unless $usefile;