# diff -Naur /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/Crypt/Eksblowfish/Bcrypt.pm.orig /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/Crypt/Eksblowfish/Bcrypt.pm --- /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/Crypt/Eksblowfish/Bcrypt.pm.orig 2014-12-16 05:50:54.000000000 +0000 +++ /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/Crypt/Eksblowfish/Bcrypt.pm 2014-12-16 05:23:46.000000000 +0000 @@ -153,7 +153,7 @@ sub bcrypt($$) { my($password, $settings) = @_; croak "bad bcrypt settings" - unless $settings =~ m#\A\$2(a?)\$([0-9]{2})\$ + unless $settings =~ m#\A\$2([ay]?)\$([0-9]{2})\$ ([./A-Za-z0-9]{22})#x; my($key_nul, $cost, $salt_base64) = ($1, $2, $3); my $hash = bcrypt_hash({