Change 16444 by jhi@alpha on 2002/05/07 13:57:25
Subject: [ID 20020506.009] File::Spec::Unix::canonpath under cygwin
From: Michael A Chase <[EMAIL PROTECTED]>
Date: Mon, 6 May 2002 13:58:48 -0700 (Pacific Daylight Time)
Message-Id: <[EMAIL PROTECTED]>
(plus add what POSIX says)
Affected files ...
.... //depot/perl/lib/File/Spec/Unix.pm#28 edit
Differences ...
==== //depot/perl/lib/File/Spec/Unix.pm#28 (text) ====
Index: perl/lib/File/Spec/Unix.pm
--- perl/lib/File/Spec/Unix.pm#27~13273~ Sun Nov 25 13:22:10 2001
+++ perl/lib/File/Spec/Unix.pm Tue May 7 06:57:25 2002
@@ -37,9 +37,13 @@
sub canonpath {
my ($self,$path) = @_;
- # Handle POSIX-style node names beginning with double slash
+ # Handle POSIX-style node names beginning with double slash (qnx, nto)
+ # Handle network path names beginning with double slash (cygwin)
+ # (POSIX says: "a pathname that begins with two successive slashes
+ # may be interpreted in an implementation-defined manner, although
+ # more than two leading slashes shall be treated as a single slash.")
my $node = '';
- if ( $^O =~ m/^(?:qnx|nto)$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
+ if ( $^O =~ m/^(?:qnx|nto|cygwin)$/ && $path =~ s:^(//[^/]+)(/|\z):/:s ) {
$node = $1;
}
# This used to be
End of Patch.
