diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-21 16:28:41 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2017-08-21 16:28:41 +1200 |
commit | d30e857d17cf6967c703b662911be23e1c470b75 (patch) | |
tree | f405e747cc04bdecbd4dc4edccdde6d89d4ae746 | |
parent | Correct a comment (diff) | |
download | checkem-d30e857d17cf6967c703b662911be23e1c470b75.tar.gz checkem-d30e857d17cf6967c703b662911be23e1c470b75.zip |
Correct ridiculous loop short-circuit error
-rwxr-xr-x | checkem | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -53,7 +53,7 @@ if ( exists $ENV{CHECKEM_ALG} ) { # Try worse and worse algorithms until we get a digest object else { ALG: for my $alg (qw(SHA-256 SHA-1 MD5)) { - next ALG if not eval { $dig = Digest->new($alg); }; + last ALG if eval { $dig = Digest->new($alg); }; } } |