From: Guillem Jover <guillem@debian.org>
Date: Tue, 23 Jan 2007 00:28:00 +0000 (+0000)
Subject: Fix typo in variable name in dpkg-source which was causing it to not
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9469f8b432940d81ab9b8329ae53049246855c2e;p=dpkg

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 0333c2c7..4835f2fd 100644
--- 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 9d770b13..aa0cf28f 100644
--- 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 09fb291a..3f90984b 100755
--- 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)