Re: [PATCH] File::Path 1.04 bug (all perl5 core versions)

To: Graham Barr <gbarr@ti.com>, perlbug@perl.org
Message-ID: <13988.46383.298992.97303@zappa>

p4raw-id: //depot/cfgperl@2666

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 225ecab..a5c91fe 100644 (file)
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -148,10 +148,17 @@ sub rmtree {
     my($roots, $verbose, $safe) = @_;
     my(@files);
     my($count) = 0;
-    $roots = [$roots] unless ref $roots;
     $verbose ||= 0;
     $safe ||= 0;
 
+    if ( defined($roots) && length($roots) ) {
+      $roots = [$roots] unless ref $roots;
+    }
+    else {
+      carp "No root path(s) specified\n";
+      return 0;
+    }
+
     my($root);
     foreach $root (@{$roots}) {
        $root =~ s#/$##;