From a31126219d1f0ff0c26bf3120cf46148300e2ab3 Mon Sep 17 00:00:00 2001
From: "Keiji, Yoshimi" <walf443@gmail.com>
Date: Sun, 17 Apr 2011 14:56:14 +0900
Subject: [PATCH] fixed basic auth.

---
 lib/Carol/IRCGateway/Wassr.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Carol/IRCGateway/Wassr.pm b/lib/Carol/IRCGateway/Wassr.pm
index b880596..07649b5 100644
--- 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 {