summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorPiotr Strzelczyk <piotr@eps.gda.pl>2009-10-18 14:27:46 +0000
committerPiotr Strzelczyk <piotr@eps.gda.pl>2009-10-18 14:27:46 +0000
commitef22aef1052f0002258c96540d7260abfb79dfe8 (patch)
tree0aa166686d475a8d8c8fc26063e8d25061b7ffd2 /Master/tlpkg
parentb91971e1036db939f351767fbe9daaefedae91fc (diff)
close file before return
git-svn-id: svn://tug.org/texlive/trunk@15825 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index f8eeec3ba39..8341b8c605c 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -3033,8 +3033,9 @@ sub tlmd5 {
if (-r $file) {
open(FILE, $file) || die "open($file) failed: $!";
binmode(FILE);
- return Digest::MD5->new->addfile(*FILE)->hexdigest;
+ my $md5hash = Digest::MD5->new->addfile(*FILE)->hexdigest;
close(FILE);
+ return $md5hash;
} else {
tlwarn("tlmd5, given file not readable: $file\n");
return "";