diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm index 87cff357ed..fbd7d1c7a4 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLCrypto.pm @@ -1,4 +1,4 @@ -# $Id: TLCrypto.pm 53820 2020-02-17 03:23:13Z preining $ +# $Id: TLCrypto.pm 53853 2020-02-21 08:39:42Z preining $ # TeXLive::TLCrypto.pm - handle checksums and signatures. # Copyright 2016-2020 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -12,7 +12,7 @@ use TeXLive::TLConfig; use TeXLive::TLUtils qw(debug ddebug win32 which platform conv_to_w32_path tlwarn tldie); -my $svnrev = '$Revision: 53820 $'; +my $svnrev = '$Revision: 53853 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -247,6 +247,7 @@ sub verify_checksum_and_check_return { if (!$localcopymode) { tldie("$0: checksum error when downloading $file from $path: $m\n"); } + return(0, $r); } elsif ($r == $VS_SIGNATURE_ERROR) { tldie("$0: signature verification error of $file from $path: $m\n"); } elsif ($r == $VS_CONNECTION_ERROR) { @@ -278,6 +279,8 @@ sub verify_checksum_and_check_return { } else { tldie("$0: unexpected return value from verify_checksum: $r\n"); } + # we should never come here, but just to be sure + return(0, $r); } |