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

create directories when extracting the diff. Closes: #374645

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

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

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)