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 (file)
--- 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;