From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 4 Dec 2008 21:46:16 +0000 (+0000)
Subject: While we are off the reservation, revert a stupid, VMS-specific
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33839f2f0661d0502f129769a85cfcf904354d39;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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