--- a/bin/zone-rm	Tue Jan 25 23:45:14 2011 +0100
+++ b/bin/zone-rm	Tue Jan 25 23:52:02 2011 +0100
@@ -3,7 +3,7 @@
 use v5.10;
 use warnings;
 use strict;
-use File::Path qw(remove_tree);
+use File::Path;
 use DNStools::Config qw(get_config);
 use Net::LibIDN qw(:all);
 use Pod::Usage;
@@ -45,7 +45,7 @@
             next if not /^y(?:es)?$/i;
         }
 
-        remove_tree("$cf{master_dir}/$zone", "$cf{zone_conf_dir}/$zone",
+        rmtree("$cf{master_dir}/$zone", "$cf{zone_conf_dir}/$zone",
             { verbose => 1 });
 
     }