bug fix

norm · Feb 7, 2010 · 718baa8 · 718baa8
1 parent 829e43a
commit 718baa8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/lib/AnyEvent/Twitter/Stream.pm b/lib/AnyEvent/Twitter/Stream.pm
@@ -72,9 +72,12 @@ sub new {
 
         $self->{connection_guard} = http_request($request_method, $uri,
             headers => {
+                Accept => '*/*',
                 Authorization => "Basic $auth",
-                'Content-Type' =>  'application/x-www-form-urlencoded',
-                Accept => '*/*'
+                ($request_method eq 'POST'
+                    ? ('Content-Type' => 'application/x-www-form-urlencoded')
+                    : ()
+                ),
             },
             body => $request_body,
             on_header => sub {

diff --git a/t/streaming.t b/t/streaming.t
@@ -9,6 +9,10 @@ use Test::More;
 use Test::TCP;
 use Test::Requires qw(Plack::Builder Plack::Request Plack::Server::AnyEvent Try::Tiny);
 
+if ($Plack::Request::VERSION < 0.99) {
+    plan(skip_all => 'need Plack::Request >= 0.99');
+}
+
 my @pattern = (
     {
         method => 'sample',
@@ -114,7 +118,7 @@ sub run_streaming_server {
                 path => $req->path,
                 request_method => $req->method,
                 user => $env->{REMOTE_USER},
-                param => $req->parameters,
+                param => $req->parameters->mixed,
             }) . "\x0D\x0A");
 
             my $count = 1;