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 /lib/File/Path.t | |
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
Diffstat (limited to 'lib/File/Path.t')
-rwxr-xr-x | lib/File/Path.t | 3 |
1 files changed, 2 insertions, 1 deletions
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 |