diff options
Diffstat (limited to 'lib/WWW/Pocket/Script.pm')
-rw-r--r-- | lib/WWW/Pocket/Script.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/WWW/Pocket/Script.pm b/lib/WWW/Pocket/Script.pm index dfae0fe..d529ac9 100644 --- a/lib/WWW/Pocket/Script.pm +++ b/lib/WWW/Pocket/Script.pm @@ -99,9 +99,9 @@ sub _authenticate { my $pocket = WWW::Pocket->new(consumer_key => $consumer_key); my $redirect_uri = $self->redirect_uri; - my $code = $pocket->start_authentication($redirect_uri); + my ($url, $code) = $pocket->start_authentication($redirect_uri); - print "Visit https://getpocket.com/auth/authorize?request_token=${code}&redirect_uri=${redirect_uri} and log in. When you're done, press enter to continue.\n"; + print "Visit $url and log in. When you're done, press enter to continue.\n"; <STDIN>; $pocket->finish_authentication($code); |