File devscripts-old-File-Path.patch of Package devscripts

diff -ur devscripts-2.11.7.orig/scripts/chdist.pl devscripts-2.11.6/scripts/chdist.pl
--- devscripts-2.11.7.orig/scripts/chdist.pl	2011-09-26 10:38:05.000000000 +0200
+++ devscripts-2.11.7/scripts/chdist.pl	2012-04-15 00:39:40.000000000 +0200
@@ -130,7 +130,7 @@
 use warnings;
 use feature 'switch';
 use File::Copy qw(cp);
-use File::Path qw(make_path);
+use File::Path qw(mkpath);
 use File::Basename;
 use Getopt::Long qw(:config gnu_compat bundling require_order);
 use Cwd qw(abs_path cwd);
@@ -319,11 +319,11 @@
     if (-d $dir) {
 	fatal("$dir already exists, exiting.");
     }
-    make_path($datadir);
+    mkpath($datadir);
     foreach my $d (('/etc/apt', '/etc/apt/apt.conf.d', '/etc/apt/preferences.d',
 		    '/etc/apt/trusted.gpg.d', '/var/lib/apt/lists/partial',
 		    '/var/cache/apt/archives/partial', '/var/lib/dpkg')) {
-	make_path("$dir/$d");
+	mkpath("$dir/$d");
     }
 
     # Create sources.list
diff -ur devscripts-2.11.7.orig/scripts/debsnap.pl devscripts-2.11.6/scripts/debsnap.pl
--- devscripts-2.11.7.orig/scripts/debsnap.pl	2012-02-26 19:53:51.000000000 +0100
+++ devscripts-2.11.7/scripts/debsnap.pl	2012-04-15 00:40:00.000000000 +0200
@@ -21,7 +21,7 @@
 use Getopt::Long qw(:config gnu_getopt);
 use File::Basename;
 use Cwd qw/cwd abs_path/;
-use File::Path qw/make_path/;
+use File::Path qw/mkpath/;
 use Dpkg::Version;
 
 my $progname = basename($0);
@@ -231,7 +231,7 @@
 	fatal "Destination dir $opt{destdir} already exists.\nPlease (re)move it first, or use --force to overwrite.";
     }
 }
-make_path($opt{destdir});
+mkpath($opt{destdir});
 
 my $json_text = fetch_json_page($baseurl);
 unless ($json_text && @{$json_text->{result}}) {