MPE/iX fixes from Mark Bixby (a Configure fix is also needed.)

p4raw-id: //depot/perl@10752

2 files changed, 5 insertions, 1 deletions

diff --git a/lib/File/Temp/security.t b/lib/File/Temp/security.t
index f9be237dd3..7f557e39b1 100755
--- a/lib/File/Temp/security.t
+++ b/lib/File/Temp/security.t
@@ -27,7 +27,7 @@ ok(1);
 # The high security tests must currently be skipped on some platforms
 my $skipplat = ( (
 		  # No sticky bits.
-		  $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'os2' || $^O eq 'dos'
+		  $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'os2' || $^O eq 'dos' || $^O eq 'mpeix'
 		  ) ? 1 : 0 );
 
 # Can not run high security tests in perls before 5.6.0
diff --git a/lib/FileHandle.t b/lib/FileHandle.t
index eaddf496db..c994c8b448 100755
--- a/lib/FileHandle.t
+++ b/lib/FileHandle.t
@@ -8,6 +8,10 @@ BEGIN {
 	print "1..0\n";
 	exit 0;
     }
+    if ($^O eq 'mpeix') {
+	print "1..0 # Skip: broken on MPE/iX\n";
+	exit 0;
+    }
 }
 
 use FileHandle;