X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FPath.t;h=3ecd8f646dbe1cd1e8e98c7667f07627b75cc098;hb=e63b33793c3cf76a134a6446d1f83479e030a15f;hp=001fcc340f814481e4c9f8d86d89365383e526d9;hpb=0e5b5e32d0d031de37957bb60fb704952b9fb8b0;p=p5sagit%2Fp5-mst-13.2.git

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