Upgrade to Pathtools-3.12

p4raw-id: //depot/perl@25711

2 files changed, 9 insertions, 1 deletions

diff --git a/ext/Cwd/Changes b/ext/Cwd/Changes
index a2fb444df7..411e4c4ad0 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 6058a14792..0b6edcdec6 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;