diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-23 18:02:21 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-23 18:02:21 +0000 |
| commit | cca87523cf2ee6eb48a8a0b1a57f8bea2c4b1915 (patch) | |
| tree | a2c899088a56e962fb5446a3a304fb85b5c658c8 /utils/perlbug.PL | |
| parent | ce5ffdc7f30bda388fc3a94fecb8e0d96662dbed (diff) | |
| download | perl-cca87523cf2ee6eb48a8a0b1a57f8bea2c4b1915.tar.gz | |
[win32] merge change#1011 from maintbranch
p4raw-link: @1011 on //depot/maint-5.004/perl: b1b8a6f107d7c2d590be5dde4bedaf8d36872c82
p4raw-id: //depot/win32/perl@1027
Diffstat (limited to 'utils/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 68ff2901d5..4685e42af2 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -84,7 +84,7 @@ BEGIN { $::HaveUtil = ($@ eq ""); }; -my $Version = "1.22"; +my $Version = "1.23"; # Changed in 1.06 to skip Mail::Send and Mail::Util if not available. # Changed in 1.07 to see more sendmail execs, and added pipe output. @@ -111,6 +111,7 @@ my $Version = "1.22"; # Changed in 1.20 Added patchlevel.h reading and version/config checks # Changed in 1.21 Added '-nok' for reporting build failure DFD 98-05-05 # Changed in 1.22 Heavy reformatting & minor bugfixes HVDS 98-05-10 +# Changed in 1.23 Restore -ok(ay): say 'success'; don't prompt # TODO: - Allow the user to re-name the file on mail failure, and # make sure failure (transmission-wise) of Mail::Send is @@ -137,7 +138,7 @@ EOF if (!-t STDOUT) { Dump(*STDOUT); exit; } Query(); -Edit() unless $usefile; +Edit() unless $usefile || ($ok and not $::opt_n); NowWhat(); Send(); @@ -435,7 +436,7 @@ EOF # Generate report open(REP,">$filename"); - my $reptype = $ok ? "build failure" : "bug"; + my $reptype = !$ok ? "bug" : $::opt_n ? "build failure" : "success"; print REP <<EOF; This is a $reptype report for perl from $from, |