diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 14:00:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-20 14:00:23 +0000 |
| commit | b62e3068b8477412c1bf4f7b95e7ddafa8c143a1 (patch) | |
| tree | 490f5d27e1523d6524da873f43352b96aab15f00 /ext | |
| parent | 0dec986a3fdc9a52abdf7d1390936c6b308b8643 (diff) | |
| download | perl-b62e3068b8477412c1bf4f7b95e7ddafa8c143a1.tar.gz | |
MPE/iX fixes from Mark Bixby (a Configure fix is also needed.)
p4raw-id: //depot/perl@10752
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Filter/t/call.t | 4 | ||||
| -rwxr-xr-x | ext/IO/lib/IO/t/io_sock.t | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/ext/Filter/t/call.t b/ext/Filter/t/call.t index dc667c98ee..0c086ab145 100644 --- a/ext/Filter/t/call.t +++ b/ext/Filter/t/call.t @@ -50,7 +50,7 @@ sub import { filter_add(bless []) } EOM my $a = `$Perl "-I." $Inc -e "use ${module} ;" 2>&1` ; -ok(1, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'NetWare') && $? != 0))) ; +ok(1, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'mpeix') && $? != 0))) ; ok(2, $a =~ /^Can't locate object method "filter" via package "MyTest"/) ; # no reference parameter in filter_add @@ -67,7 +67,7 @@ sub import { filter_add() } EOM $a = `$Perl "-I." $Inc -e "use ${module} ;" 2>&1` ; -ok(3, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'NetWare') && $? != 0))) ; +ok(3, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'mpeix') && $? != 0))) ; #ok(4, $a =~ /^usage: filter_add\(ref\) at ${module}.pm/) ; ok(4, $a =~ /^Not enough arguments for Filter::Util::Call::filter_add/) ; diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t index b752fd89ba..1c9bcc7a69 100755 --- a/ext/IO/lib/IO/t/io_sock.t +++ b/ext/IO/lib/IO/t/io_sock.t @@ -270,6 +270,9 @@ if( $server_pid) { ### a recv(2) call on the socket, while ungetc(3) put back a character ### to an IO buffer, which never again was read. # + if ($^O eq 'mpeix') { + print "ok 19 # skipped: broken on MPE/iX\n"; + } else { $sock = IO::Socket::INET->new("localhost:$serverport") || IO::Socket::INET->new("127.0.0.1:$serverport"); @@ -292,6 +295,7 @@ if( $server_pid) { print "not "; } print "ok 19\n"; + } ### TEST 20 ### Stop the server |