diff options
Diffstat (limited to 'Master')
-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 ""; |