Mercurial > hg > monetdb-perl

comparison MonetDB-CLI-MapiPP/MonetDB/CLI/Mapi.pm @ 49:44da5de4a725

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove leading zero from minor version number in $VERSION strings.
author Sjoerd Mullender <sjoerd@acm.org>
date Fri, 04 Jun 2021 14:41:30 +0200 (2021-06-04)
parents 1bdbb3ca1ae0
children 96edc4137944
comparison
equal deleted inserted replaced
48:1bdbb3ca1ae0 49:44da5de4a725
10 use Socket; 10 use Socket;
11 use IO::Socket; 11 use IO::Socket;
12 use Digest::MD5 'md5_hex'; 12 use Digest::MD5 'md5_hex';
13 use Digest::SHA qw(sha1_hex sha256_hex sha512_hex); 13 use Digest::SHA qw(sha1_hex sha256_hex sha512_hex);
14 14
15 our $VERSION = '1.01'; 15 our $VERSION = '1.1';
16 16
17 sub pass_chal { 17 sub pass_chal {
18 my ($passwd, @challenge) = @_; 18 my ($passwd, @challenge) = @_;
19 if ($challenge[2] == 9) { 19 if ($challenge[2] == 9) {
20 my $pwhash = $challenge[5]; 20 my $pwhash = $challenge[5];