diff options
| author | Johann Klasek <jk@auto.tuwien.ac.at> | 1999-04-09 20:21:37 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-04-09 18:37:55 +0000 |
| commit | 21ac5cedb9a2843e8b8e1c832bf7e0be7bc15bbf (patch) | |
| tree | 4389bd3d996c27115a6d82382a44aeecffd37b0b /lib/Cwd.pm | |
| parent | 87bbc4e770a4509955f22a6dd3de9df50d04a819 (diff) | |
| download | perl-21ac5cedb9a2843e8b8e1c832bf7e0be7bc15bbf.tar.gz | |
Understand Apollo's //node notation.
To: jhi@iki.fi
Subject: Re: DomainPerl
Message-ID: <19990409182137.A2299@euklid.auto.tuwien.ac.at>
p4raw-id: //depot/cfgperl@3223
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 5c10e8e168..655782145b 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -136,6 +136,7 @@ sub fastcwd { unshift(@path, $direntry); } $path = '/' . join('/', @path); + if ($^O eq 'apollo') { $path = "/".$path; } # At this point $path may be tainted (if tainting) and chdir would fail. # To be more useful we untaint it then check that we landed where we started. $path = $1 if $path =~ /^(.*)$/; # untaint |