SHA256
3
0
forked from pool/dpkg
dpkg/dpkg-old-File-Path.patch

23 lines
867 B
Diff

Index: dpkg-1.16.10/scripts/Dpkg/Source/Quilt.pm
===================================================================
--- dpkg-1.16.10.orig/scripts/Dpkg/Source/Quilt.pm
+++ dpkg-1.16.10/scripts/Dpkg/Source/Quilt.pm
@@ -29,7 +29,7 @@ use Dpkg::Vendor qw(get_current_vendor);
use File::Spec;
use File::Copy;
use File::Find;
-use File::Path qw(make_path);
+use File::Path qw(mkpath);
use File::Basename;
sub new {
@@ -289,7 +289,7 @@ sub restore_quilt_backup_files {
my $target = File::Spec->catfile($self->{'dir'}, $relpath_in_srcpkg);
if (-s $_) {
unlink($target);
- make_path(dirname($target));
+ mkpath(dirname($target));
unless (link($_, $target)) {
copy($_, $target) ||
syserr(_g("failed to copy %s to %s"), $_, $target);