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

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 5c10e8e..6557821 100644 (file)
--- 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