diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-09 20:34:11 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-09 20:34:11 +0000 |
commit | eeb3addf3feec5ffbcc249451fd5751440056e0d (patch) | |
tree | f768dac0b163ce44ec17e0d6bb12b2aa8f8c72dd /utils/perlbug.PL | |
parent | 4a4a611618e8ff6d5ad41c0e944ec39ce1bd0e52 (diff) | |
parent | c024d977a3f66deece6fa8197092e1716641d48e (diff) | |
download | perl-eeb3addf3feec5ffbcc249451fd5751440056e0d.tar.gz |
Integrate mainline.
p4raw-id: //depot/perlio@7630
Diffstat (limited to 'utils/perlbug.PL')
-rw-r--r-- | utils/perlbug.PL | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index c3e292a9b1..2033eee3fe 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -91,7 +91,7 @@ BEGIN { $::HaveUtil = ($@ eq ""); }; -my $Version = "1.32"; +my $Version = "1.33"; # 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. @@ -128,6 +128,7 @@ my $Version = "1.32"; # Changed in 1.30 Added warnings on failure to open files MSTEVENS 13-07-2000 # Changed in 1.31 Add checks on close().Fix my $var unless. TJENNESS 26-07-2000 # Changed in 1.32 Use File::Spec->tmpdir TJENNESS 20-08-2000 +# Changed in 1.33 Don't require -t STDOUT for -ok. # TODO: - Allow the user to re-name the file on mail failure, and # make sure failure (transmission-wise) of Mail::Send is @@ -153,7 +154,6 @@ include a file, you can use the -f switch. EOF die "\n"; } -if (!-t STDOUT && !$outfile) { Dump(*STDOUT); exit; } Query(); Edit() unless $usefile || ($ok and not $::opt_n); @@ -896,8 +896,7 @@ Options: this if you don't give it here. -e Editor to use. -t Test mode. The target address defaults to `$testaddress'. - -d Data mode (the default if you redirect or pipe output.) - This prints out your configuration data, without mailing + -d Data mode. This prints out your configuration data, without mailing anything. You can use this with -v to get more complete data. -A Don't send a bug received acknowledgement to the return address. -ok Report successful build on this system to perl porters |