Die if rmtree fails.

2001-06-08 20:36:54 +00:00
parent 55a9e3b202
commit 4aa81c5344
1 changed files with 4 additions and 0 deletions
@@ -22,6 +22,10 @@ foreach $arg ( @ARGV )
 		{
 			rmdir ($arg) or die "Cannot delete $arg";
 		}
+        if (-d $arg)
+        {
+            die "Failed to delete $arg";
+        }
 	}
 	else
 	{