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

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 156597e..7b687cd 100644 (file)
--- 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 001fcc3..3ecd8f6 100755 (executable)
--- 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