t/op/sysio.t for MPE/iX

To: perlbug@perl.com
Message-Id: <199901042134.NAA18852@spock.dis.cccd.edu>

p4raw-id: //depot/cfgperl@2574

diff --git a/t/op/sysio.t b/t/op/sysio.t
index 0318fed..22e60e3 100755 (executable)
--- a/t/op/sysio.t
+++ b/t/op/sysio.t
@@ -6,7 +6,8 @@ chdir('op') || die "sysio.t: cannot look for myself: $!";
 
 open(I, 'sysio.t') || die "sysio.t: cannot find myself: $!";
 
-$reopen = ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos');
+$reopen = ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos' ||
+          $^O eq 'mpeix');
 
 $x = 'abc';