--- 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.";