Skip to content

Instantly share code, notes, and snippets.

@hakonhagland
Created July 16, 2019 21:51
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hakonhagland/1a2307974a9ff6ad4faac8de9cf7437c to your computer and use it in GitHub Desktop.
Save hakonhagland/1a2307974a9ff6ad4faac8de9cf7437c to your computer and use it in GitHub Desktop.
Fix syntax errors in OAuth.pm
diff --git a/OAuth.pm b/OAuth.pm
index 5985f5d..d15b367 100644
--- a/OAuth.pm
+++ b/OAuth.pm
@@ -193,7 +193,7 @@ the object back to the state it was in when constructed.
sub resetTokens {
my $this = shift;
- for my $key qw(request_token request_token_secret access_token access_token_secret)
+ for my $key (qw(request_token request_token_secret access_token access_token_secret))
{
delete $this->{$key};
}
@@ -339,7 +339,7 @@ sub request_access_token {
$this->{access_token_secret} = $response->param('oauth_token_secret');
# Now that we have a good access token/secret we dont need the request tokens
- for my $key qw(request_token request_token_secret)
+ for my $key (qw(request_token request_token_secret))
{
delete $this->{$key};
}
@@ -402,7 +402,7 @@ sub set_access_token {
# Now that we have a good access token/secret we dont need the request tokens
# if they are kicking arround
- for my $key qw(request_token request_token_secret)
+ for my $key (qw(request_token request_token_secret))
{
delete $this->{$key};
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment