Skip Menu |

This queue is for tickets about the Net-Google-AuthSub CPAN distribution.

Report information
The Basics
Id: 49845
Status: new
Priority: 0/
Queue: Net-Google-AuthSub
People
Owner: Nobody in particular
Requestors: HSW [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Sat Sep 19 15:10:54 2009 HSW [...] cpan.org - Ticket created
Subject: session_token & revoke_token don't work
Typo in HTTP::Request::Common GET syntax. Replace GET "$uri", [ %params ] with GET "$uri", %params
Subject: AuthSub.pm.patch
--- AuthSub.pm.orig 2009-09-19 22:59:27.000000000 +0400 +++ AuthSub.pm 2009-09-19 22:59:58.000000000 +0400 @@ -361,7 +361,7 @@ $uri->path($uri->path.'/AuthSubRevokeToken'); my %params = $self->auth_params(); - my $r = $self->{_ua}->request(GET "$uri", [ %params ]); + my $r = $self->{_ua}->request(GET "$uri", %params); return $self->_response_error($r) unless $r->is_success; return 1; @@ -388,7 +388,7 @@ $uri->path($uri->path.'/AuthSubTokenInfo'); my %params = $self->auth_params(); - my $tmp = $self->{_ua}->request(GET "$uri", [ %params ]); + my $tmp = $self->{_ua}->request(GET "$uri", %params); my $r = Net::Google::AuthSub::Response->new($tmp, $self->{url}, _compat => $self->{_compat}); return $self->_response_failure($r) unless $r->is_success; return $r;