23 lines
867 B
Diff
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);
|