sigaction test condition tweakage.
Jarkko Hietaniemi [Thu, 15 Mar 2001 13:53:15 +0000 (13:53 +0000)]
p4raw-id: //depot/perl@9166

t/lib/sigaction.t

index 8200a6f..8b0a907 100644 (file)
@@ -43,9 +43,9 @@ my $oldaction=POSIX::SigAction->new('::bar', new POSIX::SigSet(), 0);
        if($bad) { print "not ok 1\n" } else { print "ok 1\n"}
 }
 
-if((-t STDIN && $oldaction->{HANDLER} eq 'IGNORE') ||
-   $oldaction->{HANDLER} eq 'DEFAULT')
-  { print "ok 2\n" } else { print "not ok 2\n"}
+if($oldaction->{HANDLER} eq 'DEFAULT' ||
+   (! -t STDIN && $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";
 
 sigaction(SIGHUP, $newaction, $oldaction);