From 9469f8b432940d81ab9b8329ae53049246855c2e Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Tue, 23 Jan 2007 00:28:00 +0000 Subject: [PATCH] Fix typo in variable name in dpkg-source which was causing it to not create directories when extracting the diff. Closes: #374645 --- ChangeLog | 5 +++++ debian/changelog | 2 ++ scripts/dpkg-source.pl | 4 ++-- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0333c2c7..4835f2fd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2007-01-23 Guillem Jover + + * 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 * 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) -- 2.39.5