Assimilate File::Spec 0.87

p4raw-id: //depot/perl@21974

diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index a0f5752..b5f56d0 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 = '0.86';
+$VERSION = '0.87';
 
 my %module = (MacOS   => 'Mac',
              MSWin32 => 'Win32',

diff --git a/lib/File/Spec/t/Spec.t b/lib/File/Spec/t/Spec.t
index 182daf1..1c2dd6a 100644 (file)
--- a/lib/File/Spec/t/Spec.t
+++ b/lib/File/Spec/t/Spec.t
@@ -224,7 +224,7 @@ if ($^O eq 'MacOS') {
 [ "Win32->canonpath('\\..\\')",         '\\'                  ],
 [ "Win32->canonpath('/../')",           '\\'                  ],
 [ "Win32->canonpath('/..\\')",          '\\'                  ],
-[ "Win32->can('_cwd')",                 qr/CODE/              ],
+[ "Win32->can('_cwd')",                 '/CODE/'              ],
 
 # FakeWin32 subclass (see below) just sets CWD to C:\one\two