Show
Ignore:
Timestamp:
01/17/08 16:43:32 (6 years ago)
Author:
lyokato
Message:

lang/perl/Atompub-Client-OAuth: bugfix

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Atompub-Client-OAuth/trunk/lib/Atompub/Client/OAuth.pm

    r4769 r4778  
    1 package Atompub::Client::OAuth: 
     1package Atompub::Client::OAuth; 
    22 
    33use strict; 
     
    3232    $your_app->redirect($consumer->url_to_authorize()); 
    3333 
    34     # after use authorized your application as a consumer. 
     34    # after user authorized your application as a consumer. 
    3535    my $atoken = $consumer->get_access_token( token => $atoken ); 
    3636 
     
    4747    my ($client, $consumer) = @_; 
    4848    if ($consumer) { 
    49         unless (eval{ $consumer->isa('OAuth::Lite::Consumer') }) 
     49        unless (eval{ $consumer->isa('OAuth::Lite::Consumer') }) { 
    5050            Carp::croak(qq/consumer should be OAuth::Lite::Consumer object/) 
    5151        } 
     
    5858    my ($client, $token) = @_; 
    5959    if ($token) { 
    60         unless (eval{ $consumer->isa('OAuth::Lite::Token') }) 
     60        unless (eval{ $token->isa('OAuth::Lite::Token') }) { 
    6161            Carp::croak(qq/consumer should be OAuth::Lite::Token object/) 
    6262        } 
     
    9595at your option, any later version of Perl 5 you may have available. 
    9696 
    97  
    9897=cut 
    9998