The following commit has been merged in the master branch:
commit 193cfded7822eab6d63e200037ac86df6ba98521
Author: Guillem Jover <[email protected]>
Date: Wed Apr 24 07:18:02 2013 +0200
Fix file descriptor leaks in perl code
diff --git a/dselect/methods/ftp/install b/dselect/methods/ftp/install
index 747742e..11c1dbc 100755
--- a/dselect/methods/ftp/install
+++ b/dselect/methods/ftp/install
@@ -179,6 +179,7 @@ sub procpkgfile {
}
}
}
+ close $pkgfile_fh or die "cannot close package file $fn: $!\n";
}
print "\nProcessing Package files...\n";
diff --git a/scripts/dpkg-distaddfile.pl b/scripts/dpkg-distaddfile.pl
index 1bc1901..1229b22 100755
--- a/scripts/dpkg-distaddfile.pl
+++ b/scripts/dpkg-distaddfile.pl
@@ -92,6 +92,7 @@ if (open(my $fileslist_fh, '<', $fileslistfile)) {
print($fileslistnew_fh "$_\n") ||
syserr(_g("copy old entry to new files list file"));
}
+ close $fileslist_fh or syserr(_g('cannot close %s'), $fileslistfile);
} elsif ($! != ENOENT) {
syserr(_g("read old files list file"));
}
--
dpkg's main repository
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
