From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Tue, 13 Mar 2001 18:41:26 +0000 (+0100)
Subject: Re: 9122 and sigaction/switch on HP-UX 11.00
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9424a4449820db49abc5c85e5aaada034b78d25b;p=p5sagit%2Fp5-mst-13.2.git

Re: 9122 and sigaction/switch on HP-UX 11.00
Message-Id: <20010313184043.BFFC.H.M.BRAND@hccnet.nl>

If the test is run non-interactively the default handler
is different.

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

diff --git a/t/lib/sigaction.t b/t/lib/sigaction.t
index cb3380b..4c9c95c 100644
--- a/t/lib/sigaction.t
+++ b/t/lib/sigaction.t
@@ -43,7 +43,7 @@ my $oldaction=POSIX::SigAction->new('::bar', new POSIX::SigSet(), 0);
 	if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
 }
 
-if($oldaction->{HANDLER} eq 'DEFAULT')
+if($oldaction->{HANDLER} eq (-t STDIN ? 'DEFAULT' : 'IGNORE'))
   { print "ok 2\n" } else { print "not ok 2\n"}
 print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";