use remove_tree instead of rmtree

Note: parameter for rmtree are interpreted differently,
so old code did not work.

diff --git a/PMG/Cluster.pm b/PMG/Cluster.pm
index c60d1febbf15bfa014449199458dda12b3492df0..bcdea5d75a0ea1f65c85b98852fac137e90266c6 100644 (file)
--- a/PMG/Cluster.pm
+++ b/PMG/Cluster.pm
@@ -19,7 +19,7 @@ sub create_needed_dirs {
     my ($lcid, $cleanup) = @_;
 
     # if requested, remove any stale date
-    rmtree("$spooldir/cluster", "$spooldir/virus", "$spooldir/spam") if $cleanup;
+    File::Path::remove_tree("$spooldir/cluster", "$spooldir/virus", "$spooldir/spam") if $cleanup;
 
     mkdir "$spooldir/spam";
     mkdir "$spooldir/virus";