File::Path::rmtree() doesn't delete stale symlinks correctly

p4raw-id: //depot/perl@5581

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 79fdfb6..fb5377d 100644 (file)
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -205,7 +205,9 @@ sub rmtree {
        }
        else { 
            if ($safe &&
-               ($Is_VMS ? !&VMS::Filespec::candelete($root) : !-w $root)) {
+               ($Is_VMS ? !&VMS::Filespec::candelete($root)
+                        : !(-l $root || -w $root)))
+           {
                print "skipped $root\n" if $verbose;
                next;
            }