From 4fdb5a70f63a1d6604e29575f02327446e68127f Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 27 Dec 2003 17:50:34 +0000 Subject: Assimilate File::Spec 0.87 p4raw-id: //depot/perl@21974 --- lib/File/Spec.pm | 2 +- lib/File/Spec/t/Spec.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/File') diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm index a0f5752a0b..b5f56d0ad7 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 = '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 182daf1da8..1c2dd6a171 100644 --- 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 -- cgit v1.2.1