From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 May 2001 21:44:06 +0000 (+0000)
Subject: Some shells seemingly arrange the signal handlers differently
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3253b43b0591bebee9032edaaf8ca10a35d99eed;p=p5sagit%2Fp5-mst-13.2.git

Some shells seemingly arrange the signal handlers differently
(bug id 20010521.004).

p4raw-id: //depot/perl@10270
---

diff --git a/t/lib/sigaction.t b/t/lib/sigaction.t
index 8b0a907..1815b19 100644
--- a/t/lib/sigaction.t
+++ b/t/lib/sigaction.t
@@ -44,7 +44,7 @@ my $oldaction=POSIX::SigAction->new('::bar', new POSIX::SigSet(), 0);
 }
 
 if($oldaction->{HANDLER} eq 'DEFAULT' ||
-   (! -t STDIN && $oldaction->{HANDLER} eq 'IGNORE'))
+   $oldaction->{HANDLER} eq 'IGNORE')
   { print "ok 2\n" } else { print "not ok 2 # ", $oldaction->{HANDLER}, "\n"}
 print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";