# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1295995922 -3600
# Node ID 0c9f37c94f0ce2851f29a4d7ea0289e42419310d
# Parent  3000f3962b14ee421c7ff868dc7365f87b1b076d
changed to older File::Path

diff -r 3000f3962b14 -r 0c9f37c94f0c bin/zone-mk
--- a/bin/zone-mk	Tue Jan 25 23:45:14 2011 +0100
+++ b/bin/zone-mk	Tue Jan 25 23:52:02 2011 +0100
@@ -6,7 +6,7 @@
 use Pod::Usage;
 use if $ENV{DEBUG} => "Smart::Comments";
 use Cwd qw(abs_path);
-use File::Path qw(make_path);
+use File::Path;
 use File::Basename;
 use Getopt::Long;
 use Net::LibIDN qw(:all);
@@ -50,7 +50,7 @@
         my $configfile = "$cf{zone_conf_dir}/$zone";
         my $now        = time;
 
-        make_path dirname $zonefile;
+        mkpath dirname $zonefile;
 
         if (-f $zonefile and not $opt_force) {
             say "skipping $utf8zone: zone file '$zonefile' exists.";
diff -r 3000f3962b14 -r 0c9f37c94f0c bin/zone-rm
--- 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 });
 
     }
diff -r 3000f3962b14 -r 0c9f37c94f0c t/00-config.t
--- a/t/00-config.t	Tue Jan 25 23:45:14 2011 +0100
+++ b/t/00-config.t	Tue Jan 25 23:52:02 2011 +0100
@@ -2,8 +2,7 @@
 
 use strict;
 use warnings;
-use Test::More;
-use Pod::Coverage;
+use Test::More qw(no_plan);
 use File::Temp;
 
 BEGIN {
@@ -40,6 +39,3 @@
 ok(%cf, "got config from \$DNSTOOLS_CONF");
 is($cf{abc} => "xyz", "simple value");
 is($cf{other} => "valuewithspace", "spaced value");
-
-
-done_testing();
diff -r 3000f3962b14 -r 0c9f37c94f0c t/00-perl-c.t
--- a/t/00-perl-c.t	Tue Jan 25 23:45:14 2011 +0100
+++ b/t/00-perl-c.t	Tue Jan 25 23:52:02 2011 +0100
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More qw(no_plan);
 use File::Find;
 
 plan skip_all => "no blib directories in \@INC"
@@ -13,5 +13,3 @@
     system("perl -Mblib -c $_ &>/dev/null");
     is($? => 0, "syntax $File::Find::name");
 }, "blib/");
-
-done_testing;