diff --git a/tools/test_modules/m27000.pm b/tools/test_modules/m27000.pm index 2ae2ea163..116c97d04 100644 --- a/tools/test_modules/m27000.pm +++ b/tools/test_modules/m27000.pm @@ -146,21 +146,21 @@ sub module_verify_hash my $index1 = index ($line, "::"); - return if $index1 < 1; + return if $index1 < 0; my $index2 = index ($line, ":", $index1 + 2); - return if $index2 < 1; + return if $index2 < 0; $index2 = index ($line, ":", $index2 + 1); - return if $index2 < 1; + return if $index2 < 0; my $salt = substr ($line, 0, $index2 - 32); $index2 = index ($line, ":", $index2 + 1); - return if $index2 < 1; + return if $index2 < 0; $salt .= substr ($line, $index2 + 1, 16);