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

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);