diff options
-rw-r--r-- | lib/Plack/Middleware/Auth/Htpasswd.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Plack/Middleware/Auth/Htpasswd.pm b/lib/Plack/Middleware/Auth/Htpasswd.pm index 087efa3..b3d0f54 100644 --- a/lib/Plack/Middleware/Auth/Htpasswd.pm +++ b/lib/Plack/Middleware/Auth/Htpasswd.pm @@ -37,7 +37,10 @@ sub call { sub _check_password { my $self = shift; my ($file, $user, $pass) = @_; - return Authen::Htpasswd->new($file)->check_user_password($user, $pass); + my $htpasswd = Authen::Htpasswd->new($file); + my $htpasswd_user = $htpasswd->lookup_user($user); + return unless $htpasswd_user; + return $htpasswd_user->check_password($pass); } sub authenticate { |