diff options
| author | Craig A. Berry <craigberry@mac.com> | 2008-12-04 21:46:16 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2008-12-04 21:46:16 +0000 |
| commit | 33839f2f0661d0502f129769a85cfcf904354d39 (patch) | |
| tree | 46c93bcd64b8ed2f1431abbef477cdd242477cb6 | |
| parent | 0e5b5e32d0d031de37957bb60fb704952b9fb8b0 (diff) | |
| download | perl-33839f2f0661d0502f129769a85cfcf904354d39.tar.gz | |
While we are off the reservation, revert a stupid, VMS-specific
test regression I caused David to make in 2.07. (See
http://rt.cpan.org/Public/Bug/Display.html?id=40512 ).
p4raw-id: //depot/perl@35013
| -rw-r--r-- | lib/File/Path.pm | 2 | ||||
| -rwxr-xr-x | lib/File/Path.t | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 156597e647..7b687cd2d1 100644 --- a/lib/File/Path.pm +++ b/lib/File/Path.pm @@ -17,7 +17,7 @@ BEGIN { use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = '2.07_01'; +$VERSION = '2.07_02'; @ISA = qw(Exporter); @EXPORT = qw(mkpath rmtree); @EXPORT_OK = qw(make_path remove_tree); diff --git a/lib/File/Path.t b/lib/File/Path.t index 001fcc340f..3ecd8f646d 100755 --- a/lib/File/Path.t +++ b/lib/File/Path.t @@ -205,7 +205,8 @@ $count = rmtree($dir, 0); is($count, 1, "removed directory unsafe mode"); $count = rmtree($dir2, 0, 1); -is($count, 1, "removed directory safe mode"); +my $removed = $Is_VMS ? 0 : 1; +is($count, $removed, "removed directory safe mode"); # mkdir foo ./E/../Y # Y should exist |