From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Jun 2001 01:03:14 +0000 (+0000)
Subject: More MPE/iX tweaks from Mark Bixby.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc22e1c47de3940a478e7bfe0cdc4ec8d3e322ab;p=p5sagit%2Fp5-mst-13.2.git

More MPE/iX tweaks from Mark Bixby.

p4raw-id: //depot/perl@10806
---

diff --git a/perl.c b/perl.c
index a846890..5951e22 100644
--- 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
--- 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;
 }