diff options
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 |