Bug#374645: dpkg-dev: in /usr/bin/dpkg-source, $dirc should be $dircreate?

[Nicolas François]

On Sun, Jul 02, 2006 at 04:55:40PM +0200, Nicolas François wrote:
> tags 374645 patch
> thanks


Sorry, I forgot the patch.

Regards,
-- 
Nekral

Index: scripts/dpkg-source.pl
===================================================================
--- scripts/dpkg-source.pl      (révision 443)
+++ scripts/dpkg-source.pl      (copie de travail)
@@ -806,22 +806,6 @@
        push @patches, map "$newdirectory/debian/patches/$_", sort @p;
     }
 
-    for $dircreate (keys %dirtocreate) {
-       $dircreatem= "";
-       for $dircreatep (split("/",$dirc)) {
-           $dircreatem.= $dircreatep;
-           if (!lstat($dircreatem)) {
-               $! == ENOENT || &syserr(sprintf(_g("cannot stat %s"), 
$dircreatem));
-               mkdir($dircreatem,0777)
-                   || &syserr(sprintf(_g("failed to create %s subdirectory"), 
$dircreatem));
-           }
-           else {
-               -d _ || &error(sprintf(_g("diff patches file in directory `%s',"
-                              ." but %s isn't a directory !"), $dircreate, 
$dircreatem));
-           }
-       }
-    }
-
     if ($newdirectory ne $expectprefix)
     {
        rename($expectprefix,$newdirectory) ||
@@ -1177,10 +1161,6 @@
                or &error(sprintf(_g("line after --- isn't as expected in diff 
`%s' (line %d)"), $diff, $.));
        }
 
-       $dirname = $fn;
-       if ($dirname =~ s,/[^/]+$,, && !defined($dirincluded{$dirname})) {
-           $dirtocreate{$dirname} = 1;
-       }
        defined($notfileobject{$fn}) &&
            &error(sprintf(_g("diff `%s' patches something which is not a plain 
file"), $diff));