diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2000-09-21 01:16:26 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-03 00:34:59 +0000 |
| commit | ed79a026b5aec9cc3f786c2971aa15a4b21f396c (patch) | |
| tree | b0e2bf3556083784ba28cbb74402f950712d81d9 /lib/Cwd.pm | |
| parent | 444155da6cc74bc317db82ecaa4272f5cf6d3c9b (diff) | |
| download | perl-ed79a026b5aec9cc3f786c2971aa15a4b21f396c.tar.gz | |
Epoc update
Message-ID: <26423.969484586@www10.gmx.net>
p4raw-id: //depot/perl@7124
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 2f51689ce2..dbeae69eb5 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -346,6 +346,11 @@ sub _qnx_abs_path { return $realpath; } +sub _epoc_cwd { + $ENV{'PWD'} = EPOC::getcwd(); + return $ENV{'PWD'}; +} + { no warnings; # assignments trigger 'subroutine redefined' warning @@ -394,6 +399,12 @@ sub _qnx_abs_path { *fastcwd = \&cwd; *abs_path = \&fast_abs_path; } + elsif ($^O eq 'epoc') { + *getcwd = \&_epoc_cwd; + *fastgetcwd = \&_epoc_cwd; + *fastcwd = \&_epoc_cwd; + *abs_path = \&fast_abs_path; + } } # package main; eval join('',<DATA>) || die $@; # quick test |