From: Norton T. Allen <allen@huarp.harvard.edu>
Date: Wed, 3 Jun 1998 15:08:33 +0000 (-0400)
Subject: _66 MM_Unix.pm for QNX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9020f6850b61fb9b36e73fa4c437ad49d7d6b71;p=p5sagit%2Fp5-mst-13.2.git

_66 MM_Unix.pm for QNX

	Message-Id: <199806031908.PAA04183@bottesini.harvard.edu>

p4raw-id: //depot/perl@1096
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index cf22f2d..0c225ce 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -78,11 +78,15 @@ path. On UNIX eliminated successive slashes and successive "/.".
 
 sub canonpath {
     my($self,$path) = @_;
+    my $node = '';
+    if ( $^O eq 'qnx' && $path =~ s|^(//\d+)/|/| ) {
+      $node = $1;
+    }
     $path =~ s|/+|/|g ;                            # xx////xx  -> xx/xx
     $path =~ s|(/\.)+/|/|g ;                       # xx/././xx -> xx/xx
     $path =~ s|^(\./)+|| unless $path eq "./";     # ./xx      -> xx
     $path =~ s|/$|| unless $path eq "/";           # xx/       -> xx
-    $path;
+    "$node$path";
 }
 
 =item catdir