Fix typo in variable name in dpkg-source which was causing it to not

create directories when extracting the diff. Closes: #374645

diff --git a/ChangeLog b/ChangeLog
index 0333c2c7bcb16af2cfd1e07fe57cf15b98a3834c..4835f2fd92d72cde50dc0e9a42ffe8aac372c958 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-23  Guillem Jover  <guillem@debian.org>
+
+       * scripts/dpkg-source.pl: Fix typo in variable name from $dirc to
+       $dircreate, and append a "/" on each loop.
+
 2007-01-16  Nicolas François  <nicolas.francois@centraliens.net>
 
        * configure.ac: There are no more Makefiles to generate in the

diff --git a/debian/changelog b/debian/changelog
index 9d770b13d0aca7d8556d2bd25bb2f51494c62198..aa0cf28ff5e294bc3697dc103aeccd75ddb169cb 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -14,6 +14,8 @@ dpkg (1.14.0) UNRELEASED; urgency=low
   * Make some perl scripts use static and warnings, to ease catching errors.
   * Add a missing newline to a warning message in dpkg. Closes: #390914
     Thanks to Ian Jackson.
+  * Fix typo in variable name in dpkg-source which was causing it to not
+    create directories when extracting the diff. Closes: #374645
 
   [ Updated dpkg translations ]
   * Romanian (Eddy Petrișor).

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index 09fb291aaaeda57f9291b9b6a4db98f2ab8033a5..3f90984bddecfb5168828f96bb365b24168a8a02 100755 (executable)
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -808,8 +808,8 @@ if ($opmode eq 'build') {
 
     for $dircreate (keys %dirtocreate) {
        $dircreatem= "";
-       for $dircreatep (split("/",$dirc)) {
-           $dircreatem.= $dircreatep;
+       for $dircreatep (split("/", $dircreate)) {
+           $dircreatem .= $dircreatep . "/";
            if (!lstat($dircreatem)) {
                $! == ENOENT || &syserr(sprintf(_g("cannot stat %s"), $dircreatem));
                mkdir($dircreatem,0777)