diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2001-03-13 19:41:26 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-13 22:23:44 +0000 |
| commit | 9424a4449820db49abc5c85e5aaada034b78d25b (patch) | |
| tree | 3432cdb338b41fee004e104670f4738d624ef2e8 /t | |
| parent | bdc55ba48addd52d165af02b8f4f8c5c516bea02 (diff) | |
| download | perl-9424a4449820db49abc5c85e5aaada034b78d25b.tar.gz | |
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
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/sigaction.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/sigaction.t b/t/lib/sigaction.t index cb3380b119..4c9c95cafa 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"; |