Fix experimental warnings

[apache2-authen-passphrase.git] / lib / Apache2 / Authen / Passphrase.pm

diff --git a/lib/Apache2/Authen/Passphrase.pm b/lib/Apache2/Authen/Passphrase.pm
index d2be6625e24e91abd3686f283749595821bb0441..5debb55607d64c95409e1a76638ca8a02452f4f0 100644 (file)
--- a/lib/Apache2/Authen/Passphrase.pm
+++ b/lib/Apache2/Authen/Passphrase.pm
@@ -59,7 +59,7 @@ sub pwcheck{
        my $conf=LoadFile "$rootdir/$user.yml";
 
        ## no critic (RequireCarping)
-       die BAD_PASSWORD unless keys $conf;          # Empty hash means no such user
+       die BAD_PASSWORD unless keys %$conf;          # Empty hash means no such user
        die BAD_PASSWORD unless Authen::Passphrase->from_rfc2307($conf->{passphrase})->match($pass);
        ## use critic
        pwset $user, $pass if $conf->{passphrase_version} < PASSPHRASE_VERSION
@@ -178,7 +178,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2013 by Marius Gavrilescu
+Copyright (C) 2013-2015 by Marius Gavrilescu
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.14.2 or,