This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #122635] avoid turning a leading // into / on cygwin
authorTony Cook <tony@develop-help.com>
Wed, 3 Dec 2014 02:51:59 +0000 (13:51 +1100)
committerTony Cook <tony@develop-help.com>
Wed, 3 Dec 2014 02:51:59 +0000 (13:51 +1100)
//server/sharename is used for Win32 shares on cygwin

bump version, synchronizing across all of PathTools.

dist/PathTools/Cwd.pm
dist/PathTools/lib/File/Spec.pm
dist/PathTools/lib/File/Spec/Cygwin.pm
dist/PathTools/lib/File/Spec/Epoc.pm
dist/PathTools/lib/File/Spec/Functions.pm
dist/PathTools/lib/File/Spec/Mac.pm
dist/PathTools/lib/File/Spec/OS2.pm
dist/PathTools/lib/File/Spec/Unix.pm
dist/PathTools/lib/File/Spec/VMS.pm
dist/PathTools/lib/File/Spec/Win32.pm

index ddc16fe..a9b0da9 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 my $xs_version = $VERSION;
 $VERSION =~ tr/_//;
 
@@ -351,7 +351,13 @@ sub chdir_init {
 
 sub chdir {
     my $newdir = @_ ? shift : '';      # allow for no arg (chdir to HOME dir)
-    $newdir =~ s|///*|/|g unless $^O eq 'MSWin32';
+    if ($^O eq "cygwin") {
+      $newdir =~ s|\A///+|//|;
+      $newdir =~ s|(?<=[^/])//+|/|g;
+    }
+    elsif ($^O ne 'MSWin32') {
+      $newdir =~ s|///*|/|g;
+    }
     chdir_init() unless $chdir_init;
     my $newpwd;
     if ($^O eq 'MSWin32') {
index f47aca0..7da1ce4 100644 (file)
@@ -3,7 +3,7 @@ package File::Spec;
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 my %module = (MacOS   => 'Mac',
index 3794320..c9ca9bd 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index a2fd86a..18a3c8a 100644 (file)
@@ -3,7 +3,7 @@ package File::Spec::Epoc;
 use strict;
 use vars qw($VERSION @ISA);
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 require File::Spec::Unix;
index 6b75f74..304f8b4 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 require Exporter;
index 4f2ecca..ac2521c 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index c5e7544..5fd3144 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index f673c0b..fef998a 100644 (file)
@@ -3,7 +3,7 @@ package File::Spec::Unix;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 my $xs_version = $VERSION;
 $VERSION =~ tr/_//;
 
index f350918..331f7e3 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.52';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index f238d96..debefc9 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);