From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 15 Jul 1998 03:24:56 +0000 (+0200)
Subject: allow perlbug -ok when STDIN it not a tty
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eedd3c3615d88ae5f720d5296d9bd81945898b9f;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index e5c5230..b3d9a7f 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.