diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-09-03 13:39:31 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-09-03 13:39:31 -0500 |
| commit | e1bb61a9a4c4eea9ad68ccbe935e9ba464a5fbfd (patch) | |
| tree | 8e99d11fac593bfc24555f65efe5fb83eafbe335 | |
| parent | c9af454387315a60493b2d98d77ad2e7a07afcd7 (diff) | |
| download | plack-middleware-auth-htpasswd-e1bb61a9a4c4eea9ad68ccbe935e9ba464a5fbfd.tar.gz plack-middleware-auth-htpasswd-e1bb61a9a4c4eea9ad68ccbe935e9ba464a5fbfd.zip | |
append '==' to the mime64 string to silence a warning0.01
| -rw-r--r-- | lib/Plack/Middleware/Auth/Htpasswd.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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)) { |