From dc22e1c47de3940a478e7bfe0cdc4ec8d3e322ab Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 22 Jun 2001 01:03:14 +0000 Subject: [PATCH] More MPE/iX tweaks from Mark Bixby. p4raw-id: //depot/perl@10806 --- perl.c | 2 +- t/op/magic.t | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) 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; } -- 1.8.3.1