diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 1998-06-03 11:08:33 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 06:30:51 +0000 |
| commit | f9020f6850b61fb9b36e73fa4c437ad49d7d6b71 (patch) | |
| tree | 54a73a43f654e4aa586d59f791d3caaeb304585c /lib | |
| parent | 72cabb3d1d07a44d78696e19cb3afe98319ba764 (diff) | |
| download | perl-f9020f6850b61fb9b36e73fa4c437ad49d7d6b71.tar.gz | |
_66 MM_Unix.pm for QNX
Message-Id: <199806031908.PAA04183@bottesini.harvard.edu>
p4raw-id: //depot/perl@1096
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index cf22f2d803..0c225ce73c 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 |