diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 01:03:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 01:03:14 +0000 |
| commit | dc22e1c47de3940a478e7bfe0cdc4ec8d3e322ab (patch) | |
| tree | 5e0e14355782b108c2d0b11276733f8ff867076e | |
| parent | c70498c117875832199c38c377c90989d6837b1a (diff) | |
| download | perl-dc22e1c47de3940a478e7bfe0cdc4ec8d3e322ab.tar.gz | |
More MPE/iX tweaks from Mark Bixby.
p4raw-id: //depot/perl@10806
| -rw-r--r-- | perl.c | 2 | ||||
| -rwxr-xr-x | t/op/magic.t | 3 |
2 files changed, 3 insertions, 2 deletions
@@ -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 935e574990..aa568a7b1a 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; } |