More MPE/iX tweaks from Mark Bixby.

p4raw-id: //depot/perl@10806

diff --git a/perl.c b/perl.c
index a846890..5951e22 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2354,7 +2354,7 @@ Perl_moreswitches(pTHX_ char *s)
 #endif
 #ifdef MPE
        PerlIO_printf(PerlIO_stdout(),
-                     "MPE/iX port Copyright by Mark Klein and Mark Bixby, 1996-1999\n");
+                     "MPE/iX port Copyright by Mark Klein and Mark Bixby, 1996-2001\n");
 #endif
 #ifdef OEMVS
        PerlIO_printf(PerlIO_stdout(),

diff --git a/t/op/magic.t b/t/op/magic.t
index 935e574..aa568a7 100755 (executable)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -26,6 +26,7 @@ $Is_VMS     = $^O eq 'VMS';
 $Is_Dos   = $^O eq 'dos';
 $Is_os2   = $^O eq 'os2';
 $Is_Cygwin   = $^O eq 'cygwin';
+$Is_MPE     = $^O eq 'mpeix';          
 $PERL = ($Is_MSWin32 ? '.\perl' : ($Is_NetWare ? 'perl' : './perl'));
 
 print "1..41\n";
@@ -40,7 +41,7 @@ open(FOO,'ajslkdfpqjsjfk');
 ok 2, $!, $!;
 close FOO; # just mention it, squelch used-only-once
 
-if ($Is_MSWin32 || $Is_NetWare || $Is_Dos) {
+if ($Is_MSWin32 || $Is_NetWare || $Is_Dos || $Is_MPE) {
     ok "3 # skipped",1;
     ok "4 # skipped",1;
 }