diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
| commit | 2986a63f7e513cf37f46db9f211b77071260031f (patch) | |
| tree | 9a6e62602396938ea5a612420f53ebf267e8d941 /t/op/misc.t | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 679dd91d0d..b00f4b1b74 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -17,7 +17,7 @@ $tmpfile = "misctmp000"; 1 while -f ++$tmpfile; END { while($tmpfile && unlink $tmpfile){} } -$CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : 'cat'); +$CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : (($^O eq 'NetWare') ? 'perl -e "print <>"' : 'cat')); for (@prgs){ my $switch; @@ -35,6 +35,9 @@ for (@prgs){ if ($^O eq 'MSWin32') { $results = `.\\perl -I../lib $switch $tmpfile 2>&1`; } + elsif ($^O eq 'NetWare') { + $results = `perl -I../lib $switch $tmpfile 2>&1`; + } else { $results = `./perl $switch $tmpfile 2>&1`; } @@ -624,7 +627,7 @@ my $have_setlocale = $Config{d_setlocale} eq 'define'; $have_setlocale = 0 if $@; # 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); exit(0) unless $have_setlocale; my @locales; if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) { |