diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1998-07-15 05:24:56 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-15 07:03:33 +0000 |
| commit | eedd3c3615d88ae5f720d5296d9bd81945898b9f (patch) | |
| tree | 99fcd4ba70af05f0cb9220bc10908290ab6e78e8 /utils | |
| parent | 2fb0af1aee8bfa676adf30c701b6199b977a7b5b (diff) | |
| download | perl-eedd3c3615d88ae5f720d5296d9bd81945898b9f.tar.gz | |
allow perlbug -ok when STDIN it not a tty
Message-Id: <l03130302b1d1b1e7c2a0@[194.222.64.89]>
Subject: Re: [NOT OK] 5.004_74: "make ok" not ok in IRIX 6.2
p4raw-id: //depot/perl@1511
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL index e5c52309f4..b3d9a7fd41 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -86,7 +86,7 @@ BEGIN { $::HaveUtil = ($@ eq ""); }; -my $Version = "1.25"; +my $Version = "1.26"; # 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. @@ -116,6 +116,7 @@ my $Version = "1.25"; # Changed in 1.23 Restore -ok(ay): say 'success'; don't prompt # Changed in 1.24 Added '-F<file>' to save report HVDS 98-07-01 # Changed in 1.25 Warn on failure to open save file. HVDS 98-07-12 +# Changed in 1.26 Don't require -t STDIN for -ok. HVDS 98-07-15 # TODO: - Allow the user to re-name the file on mail failure, and # make sure failure (transmission-wise) of Mail::Send is @@ -132,7 +133,7 @@ Init(); if ($::opt_h) { Help(); exit; } if ($::opt_d) { Dump(*STDOUT); exit; } -if (!-t STDIN) { +if (!-t STDIN && !($ok and not $::opt_n)) { paraprint <<EOF; Please use perlbug interactively. If you want to include a file, you can use the -f switch. |