From e1bb61a9a4c4eea9ad68ccbe935e9ba464a5fbfd Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 3 Sep 2010 13:39:31 -0500 Subject: append '==' to the mime64 string to silence a warning --- lib/Plack/Middleware/Auth/Htpasswd.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Plack/Middleware/Auth/Htpasswd.pm b/lib/Plack/Middleware/Auth/Htpasswd.pm index 7647acb..447ddde 100644 --- a/lib/Plack/Middleware/Auth/Htpasswd.pm +++ b/lib/Plack/Middleware/Auth/Htpasswd.pm @@ -73,7 +73,9 @@ sub call { unless $auth && $auth =~ /^Basic (.*)$/; my $auth_string = $1; - my ($user, $pass) = split /:/, (MIME::Base64::decode($auth_string) || ":"); + my ($user, $pass) = split /:/, ( + MIME::Base64::decode($auth_string . '==') || ":" + ); $pass = '' unless defined $pass; if ($self->authenticate($env, $user, $pass)) { -- cgit v1.2.3-54-g00ecf