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