diff options
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 2 | ||||
| -rwxr-xr-x | t/pragma/strict.t | 3 | ||||
| -rwxr-xr-x | t/pragma/subs.t | 3 | ||||
| -rw-r--r-- | t/pragma/warn/mg | 4 | ||||
| -rw-r--r-- | t/pragma/warnings.t | 3 |
5 files changed, 12 insertions, 3 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 0926a6ec39..e58616cbef 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -43,7 +43,7 @@ eval { # Visual C's CRT goes silly on strings of the form "en_US.ISO8859-1" # and mingw32 uses said silly CRT -$have_setlocale = 0 if $^O eq 'MSWin32' && $Config{cc} =~ /^(cl|gcc)/i; +$have_setlocale = 0 if (($^O eq 'MSWin32' || $^O eq 'NetWare') && $Config{cc} =~ /^(cl|gcc)/i); my $last = $have_setlocale ? &last : &last_without_setlocale; diff --git a/t/pragma/strict.t b/t/pragma/strict.t index bbfb8ab1f1..8b9083f4fc 100755 --- a/t/pragma/strict.t +++ b/t/pragma/strict.t @@ -10,6 +10,7 @@ $| = 1; my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; +my $Is_NetWare = $^O eq 'NetWare'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -71,6 +72,8 @@ for (@prgs){ `.\\perl -I../lib $switch $tmpfile 2>&1` : $^O eq 'MacOS' ? `$^X -I::lib $switch $tmpfile` : + $^O eq 'NetWare' ? + `perl -I../lib $switch $tmpfile 2>&1` : `./perl $switch $tmpfile 2>&1`; my $status = $?; $results =~ s/\n+$//; diff --git a/t/pragma/subs.t b/t/pragma/subs.t index 7e48e201a8..2f684b41ed 100755 --- a/t/pragma/subs.t +++ b/t/pragma/subs.t @@ -13,6 +13,7 @@ print "1..", scalar @prgs, "\n"; my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; +my $Is_NetWare = $^O eq 'NetWare'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -49,6 +50,8 @@ for (@prgs){ `./perl $switch $tmpfile 2>&1` : $Is_MSWin32 ? `.\\perl -I../lib $switch $tmpfile 2>&1` : + $Is_NetWare ? + `perl -I../lib $switch $tmpfile 2>&1` : `./perl $switch $tmpfile 2>&1`; my $status = $?; $results =~ s/\n+$//; diff --git a/t/pragma/warn/mg b/t/pragma/warn/mg index a8f9dbc338..f2243357b3 100644 --- a/t/pragma/warn/mg +++ b/t/pragma/warn/mg @@ -25,7 +25,7 @@ EXPECT ######## # mg.c use warnings 'signal' ; -if ($^O eq 'MSWin32' || $^O eq 'VMS') { +if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit; } $|=1; @@ -35,7 +35,7 @@ SIGINT handler "fred" not defined. ######## # mg.c no warnings 'signal' ; -if ($^O eq 'MSWin32' || $^O eq 'VMS') { +if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { print "SKIPPED\n# win32, can't kill() to raise()\n"; exit; } $|=1; diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t index 591f0399ab..09b41fbd64 100644 --- a/t/pragma/warnings.t +++ b/t/pragma/warnings.t @@ -11,6 +11,7 @@ $| = 1; my $Is_VMS = $^O eq 'VMS'; my $Is_MSWin32 = $^O eq 'MSWin32'; +my $Is_NetWare = $^O eq 'NetWare'; my $tmpfile = "tmp0000"; my $i = 0 ; 1 while -f ++$tmpfile; @@ -86,6 +87,8 @@ for (@prgs){ `./perl "-I../lib" $switch $tmpfile 2>&1` : $Is_MSWin32 ? `.\\perl -I../lib $switch $tmpfile 2>&1` : + $Is_NetWare ? + `perl -I../lib $switch $tmpfile 2>&1` : `./perl -I../lib $switch $tmpfile 2>&1`; my $status = $?; $results =~ s/\n+$//; |