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 /lib/AutoLoader.pm | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 'lib/AutoLoader.pm')
| -rw-r--r-- | lib/AutoLoader.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/AutoLoader.pm b/lib/AutoLoader.pm index ad6bc4013b..564aeb1276 100644 --- a/lib/AutoLoader.pm +++ b/lib/AutoLoader.pm @@ -12,7 +12,7 @@ BEGIN { require Exporter; @EXPORT = @EXPORT = (); @EXPORT_OK = @EXPORT_OK = qw(AUTOLOAD); - $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32'; + $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare'; $is_epoc = $^O eq 'epoc'; $is_vms = $^O eq 'VMS'; $is_macos = $^O eq 'MacOS'; @@ -57,7 +57,11 @@ AUTOLOAD { unless ($filename =~ m|^/|s) { if ($is_dosish) { unless ($filename =~ m{^([a-z]:)?[\\/]}is) { - $filename = "./$filename"; + if ($^O ne 'NetWare') { + $filename = "./$filename"; + } else { + $filename = "$filename"; + } } } elsif ($is_epoc) { |