Close the old debian/files file, before doing a rename.

diff --git a/ChangeLog b/ChangeLog
index ab954cadec64df96a2893e3bc08543f6a77506cb..bcc216a190a0d06bc848730aa899c2751791aee7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri May 24 22:06:48 CDT 2002 Adam Heath <doogie@debian.org>
+
+  * scripts/dpkg-gencontrol.pl: Close the old debian/files file,
+    before doing a rename.
+
 Fri May 24 22:00:01 CDT 2002 Adam Heath <doogie@debian.org>
 
   * scripts/dpkg-buildpackage.sh, scripts/dpkg-source.pl,

diff --git a/debian/changelog b/debian/changelog
index bfc8657a1ef7d154bdcdc2d8ee1b0aa34846ffcd..1baf2dbdb4791dbc3c3a07ae57dc9ef6a06b8dde 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -107,6 +107,8 @@ dpkg (1.10) unstable; urgency=low
     counting all variable expansions.  Closes: #144121.
   * Add -I<filename> to dpkg-buildpackage and dpkg-source, to excludes
     files from tar, when building a native package.  Closes: Bug#75947.
+  * Close the old debian/files file, before doing a rename.  Closes:
+    Bug#111503.
 
  -- Wichert Akkerman <wakkerma@debian.org>  Mon, 20 Aug 2001 14:54:38 +0200
 

diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl
index 38b79d5ead3b9a17b07b8b274316cc3d50ca0c44..4cfb2c2357787c535bfe715f53b0e2e65b2237ab 100755 (executable)
--- a/scripts/dpkg-gencontrol.pl
+++ b/scripts/dpkg-gencontrol.pl
@@ -220,6 +220,7 @@ if (open(X,"< $fileslistfile")) {
                 && ($1 eq $oppackage) && ($2 eq $arch || $2 eq 'all');
         print(Y "$_\n") || &syserr("copy old entry to new files list file");
     }
+    close(X) || &syserr("close old files list file");
 } elsif ($! != ENOENT) {
     &syserr("read old files list file");
 }