X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=Debian%2FDebhelper%2FDh_Lib.pm;h=829eabfc38f70864d4babd63246e16f933f59f29;hb=94f05f40141f7005a711850eee8f5f7566c3a647;hp=b57c4d97d15c66faf1fb166ed82ca0c1480c7010;hpb=fa78ca81c39a4c255e23e601eb2752a7be2e9ba3;p=debhelper.git

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index b57c4d9..829eabf 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -300,6 +300,7 @@ sub dirname {
 				# Try the file..
 				open (COMPAT_IN, "debian/compat") || error "debian/compat: $!";
 				my $l=<COMPAT_IN>;
+				close COMPAT_IN;
 				if (! defined $l || ! length $l) {
 					warning("debian/compat is empty, assuming level $c");
 				}