Assimilate File::Spec 0.87
Nicholas Clark [Sat, 27 Dec 2003 17:50:34 +0000 (17:50 +0000)]
p4raw-id: //depot/perl@21974

lib/File/Spec.pm
lib/File/Spec/t/Spec.t

index a0f5752..b5f56d0 100644 (file)
@@ -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',
index 182daf1..1c2dd6a 100644 (file)
@@ -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