fixed basic auth.

walf443 · Apr 17, 2011 · a311262 · a311262
1 parent 768a78f
commit a311262
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Carol/IRCGateway/Wassr.pm b/lib/Carol/IRCGateway/Wassr.pm
@@ -118,7 +118,7 @@ sub request_wassr {
     $args{headers}->{'user-agent'} ||= "Carol";
 
     if ( $authorize ) {
-        $args{headers}->{'Authorization'} = MIME::Base64::encode_base64(join ":", ($self->account->{login_id}, $self->account->{password}));
+        $args{headers}->{'Authorization'} = "Basic " . MIME::Base64::encode_base64(join ":", ($self->account->{login_id}, $self->account->{password}));
     }
 
     AnyEvent::HTTP::http_request($method, $url, %args, sub {