From 845aa5d4bfe55f91d6b0d961499320842f6253d6 Mon Sep 17 00:00:00 2001 From: Jens Steube Date: Fri, 31 Jul 2020 11:00:43 +0200 Subject: [PATCH] Fix verify function in unit test for -m 23200 --- tools/test_modules/m23200.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tools/test_modules/m23200.pm b/tools/test_modules/m23200.pm index 69a815ca0..d1fc873fb 100644 --- a/tools/test_modules/m23200.pm +++ b/tools/test_modules/m23200.pm @@ -54,19 +54,19 @@ sub module_verify_hash my (undef, $signature, $type, $iter, $salt_len, $salt_hex, $hash_hex) = split '\$', $hash; - next unless defined $signature; - next unless defined $type; - next unless defined $iter; - next unless defined $salt_len; - next unless defined $salt_hex; - next unless defined $hash_hex; + return unless defined $signature; + return unless defined $type; + return unless defined $iter; + return unless defined $salt_len; + return unless defined $salt_hex; + return unless defined $hash_hex; - next unless ($signature eq 'xmpp-scram'); - next unless ($type eq '0'); + return unless ($signature eq 'xmpp-scram'); + return unless ($type eq '0'); my $salt = pack ("H*", $salt_hex); - next unless ($salt_len == length $salt); + return unless ($salt_len == length $salt); my $word_packed = pack_if_HEX_notation ($word);