devscripts/devscripts-old-File-Path.patch

48 lines
1.6 KiB
Diff
Raw Normal View History

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}}) {