Upgrade to Pathtools-3.12

p4raw-id: //depot/perl@25711

diff --git a/ext/Cwd/Changes b/ext/Cwd/Changes
index a2fb444..411e4c4 100644 (file)
--- a/ext/Cwd/Changes
+++ b/ext/Cwd/Changes
@@ -1,5 +1,13 @@
 Revision history for Perl distribution PathTools.
 
+3.12  Mon Oct  3 22:09:12 CDT 2005
+
+ - Fixed a testing error on OS/2 in which a drive letter for the root
+   directory was confusing things. [Ilya Zakharevich]
+
+ - Integrated a patch from bleadperl for fixing path() on
+   Win32. [Gisle Aas]
+
 3.11  Sat Aug 27 20:12:55 CDT 2005
 
  - Fixed a couple of typos in the documentation for

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index 6058a14..0b6edcd 100644 (file)
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -199,7 +199,7 @@ path_ends_with(Cwd::_perl_abs_path($path), 'cwd.t', '_perl_abs_path() can be inv
 SKIP: {
   my $file;
   {
-    my $root = File::Spec->rootdir;
+    my $root = Cwd::abs_path(File::Spec->rootdir);     # Add drive letter?
     local *FH;
     opendir FH, $root or skip("Can't opendir($root): $!", 2+$EXTRA_ABSPATH_TESTS);
     ($file) = grep {-f $_ and not -l $_} map File::Spec->catfile($root, $_), readdir FH;

diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index 13bde5d..0c8cd21 100644 (file)
--- a/lib/File/Spec.pm
+++ b/lib/File/Spec.pm
@@ -3,7 +3,7 @@ package File::Spec;
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.11';
+$VERSION = '3.12';
 $VERSION = eval $VERSION;
 
 my %module = (MacOS   => 'Mac',

diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index 2981ff9..a324306 100644 (file)
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -5,7 +5,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '1.5_01';
+$VERSION = '1.6';
 
 @ISA = qw(File::Spec::Unix);