diff options
author | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-10-18 14:27:46 +0000 |
---|---|---|
committer | Piotr Strzelczyk <piotr@eps.gda.pl> | 2009-10-18 14:27:46 +0000 |
commit | ef22aef1052f0002258c96540d7260abfb79dfe8 (patch) | |
tree | 0aa166686d475a8d8c8fc26063e8d25061b7ffd2 /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | b91971e1036db939f351767fbe9daaefedae91fc (diff) |
close file before return
git-svn-id: svn://tug.org/texlive/trunk@15825 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
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 ""; |