Make salt detection more robust.

This commit is contained in:
Dr. Stephen Henson 2007-11-09 01:16:14 +00:00
parent a3a426cfb5
commit 22f6a2b271

View File

@ -598,7 +598,7 @@ END
my $saltlen; my $saltlen;
while (<IN>) while (<IN>)
{ {
if (/^\s*#\s*salt\s+len:\s+(\d+)\s+$/i) if (/^\s*#\s*salt\s+len:\s+(\d+)\s*$/i)
{ {
my $sl = $1; my $sl = $1;
print STDERR "$req salt length $sl\n" if $debug; print STDERR "$req salt length $sl\n" if $debug;