From: Johann Klasek <jk@auto.tuwien.ac.at>
Date: Fri, 9 Apr 1999 18:21:37 +0000 (+0200)
Subject: Understand Apollo's //node notation.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21ac5cedb9a2843e8b8e1c832bf7e0be7bc15bbf;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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