Change 11435 by jhi@alpha on 2001/07/22 00:22:51
Typo in #11432.
Affected files ...
... //depot/perl/ext/POSIX/POSIX.t#9 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.t#9 (xtext) ====
Index: perl/ext/POSIX/POSIX.t
--- perl/ext/POSIX/POSIX.t.~1~ Sat Jul 21 18:30:05 2001
+++ perl/ext/POSIX/POSIX.t Sat Jul 21 18:30:05 2001
@@ -34,14 +34,14 @@
print "ok $_ # skipped, no pipe() support on dos\n";
}
} else {
-@fds = POSIX::pipe();
-print $fds[0] > $testfd ? "ok 4\n" : "not ok 4\n";
-CORE::open($reader = \*READER, "<&=".$fds[0]);
-CORE::open($writer = \*WRITER, ">&=".$fds[1]);
-print $writer "ok 5\n";
-close $writer;
-print <$reader>;
-close $reader;
+ @fds = POSIX::pipe();
+ print $fds[0] > $testfd ? "ok 4\n" : "not ok 4\n";
+ CORE::open($reader = \*READER, "<&=".$fds[0]);
+ CORE::open($writer = \*WRITER, ">&=".$fds[1]);
+ print $writer "ok 5\n";
+ close $writer;
+ print <$reader>;
+ close $reader;
}
if ($Is_W32 || $Is_Dos) {
@@ -50,35 +50,36 @@
}
}
else {
-$sigset = new POSIX::SigSet 1,3;
-delset $sigset 1;
-if (!ismember $sigset 1) { print "ok 6\n" }
-if ( ismember $sigset 3) { print "ok 7\n" }
-
-if ($Is_MacOS) {
- for (8..11) {
- print "ok $_ # skipped, no kill() support on Mac OS\n";
+ $sigset = new POSIX::SigSet 1, 3;
+ delset $sigset 1;
+ if (!ismember $sigset 1) { print "ok 6\n" }
+ if ( ismember $sigset 3) { print "ok 7\n" }
+
+ if ($Is_MacOS) {
+ for (8..11) {
+ print "ok $_ # skipped, no kill() support on Mac OS\n";
+ }
}
-}
-else {
- $mask = new POSIX::SigSet &SIGINT;
- $action = new POSIX::SigAction 'main::SigHUP', $mask, 0;
- sigaction(&SIGHUP, $action);
- $SIG{'INT'} = 'SigINT';
- kill 'HUP', $$;
- sleep 1;
- print "ok 11\n";
+ else {
+ $mask = new POSIX::SigSet &SIGINT;
+ $action = new POSIX::SigAction 'main::SigHUP', $mask, 0;
+ sigaction(&SIGHUP, $action);
+ $SIG{'INT'} = 'SigINT';
+ kill 'HUP', $$;
+ sleep 1;
+ print "ok 11\n";
+
+ sub SigHUP {
+ print "ok 8\n";
+ kill 'INT', $$;
+ sleep 2;
+ print "ok 9\n";
+ }
- sub SigHUP {
- print "ok 8\n";
- kill 'INT', $$;
- sleep 2;
- print "ok 9\n";
+ sub SigINT {
+ print "ok 10\n";
+ }
}
-
- sub SigINT {
- print "ok 10\n";
- }
}
if ($Is_MPE) {
@@ -170,8 +171,9 @@
}
$| = 0;
-# The following line assumes buffered output, which may be not true with EMX:
-print '@#!*$@(!@#$' unless ($Is_MacOS || $^O eq 'os2' || $^O eq 'uwin' || $^O eq
'os390');
+# The following line assumes buffered output, which may be not true:
+print '@#!*$@(!@#$' unless ($Is_MacOS || $^O eq 'os2' ||
+ $^O eq 'uwin' || $^O eq 'os390' ||
(defined $ENV{PERLIO} &&
$ENV{PERLIO} eq 'unix' &&
$Config::Config{useperlio}));
End of Patch.
