From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 7 Oct 2005 03:29:37 +0000 (+0000)
Subject: Upgrade to Pathtools-3.12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5f48b4d8916a5316bf55ddba4047be421aaecfe;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Pathtools-3.12

p4raw-id: //depot/perl@25711
---

diff --git a/ext/Cwd/Changes b/ext/Cwd/Changes
index a2fb444..411e4c4 100644
--- 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
--- 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
--- 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
--- 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);