diff options
Diffstat (limited to 'lib/File/Spec/Unix.pm')
| -rw-r--r-- | lib/File/Spec/Unix.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm index 57b83c6cb4..a4f4c1dcb9 100644 --- a/lib/File/Spec/Unix.pm +++ b/lib/File/Spec/Unix.pm @@ -3,7 +3,7 @@ package File::Spec::Unix; use strict; use vars qw($VERSION); -$VERSION = '3.28_01'; +$VERSION = '3.28_03'; $VERSION = eval $VERSION; =head1 NAME @@ -50,7 +50,10 @@ sub canonpath { # more than two leading slashes shall be treated as a single slash.") my $node = ''; my $double_slashes_special = $^O eq 'qnx' || $^O eq 'nto'; - if ( $double_slashes_special && $path =~ s{^(//[^/]+)(?:/|\z)}{/}s ) { + + + if ( $double_slashes_special + && ( $path =~ s{^(//[^/]+)/?\z}{}s || $path =~ s{^(//[^/]+)/}{/}s ) ) { $node = $1; } # This used to be |