diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 8 |
1 files changed, 7 insertions, 1 deletions
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; |