dpkg-shlibdeps: Close file descriptor after use

Unneeded file descriptors should be closed ASAP.

diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl
index 7fa7e99009bccbba283ff29969e1f73c5b6446f5..327f3196ca79c1c4829c47ced81eb205d1b61968 100755 (executable)
--- a/scripts/dpkg-shlibdeps.pl
+++ b/scripts/dpkg-shlibdeps.pl
@@ -200,6 +200,7 @@ if ($stdout) {
            print(NEW $entry) ||
                syserr(sprintf(_g("copy old entry to new varlist file \`%s'"), "$varlistfile.new"));
        }
+       close(OLD);
     }
     $fh = \*NEW;
 }