Browse files

Dereference hashref for keys().

(Would work with very recent perls, but not older ones)
  • Loading branch information...
1 parent 9ab1686 commit 21c3da63ba9ae9104aa64fd93036161a2d004fc0 @bigpresh bigpresh committed Nov 22, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Bot/BasicBot/Pluggable/Module/GitHub.pm
View
2 lib/Bot/BasicBot/Pluggable/Module/GitHub.pm
@@ -229,7 +229,7 @@ sub said {
my $message;
my $projects_for_channel =
$self->store->get('GitHub','projects_for_channel') || {};
- foreach my $key (keys $projects_for_channel){
+ foreach my $key (keys %$projects_for_channel){
$message .= "$key: @{$projects_for_channel->{$key}}\n";
}
return $message || "No GitHub projects set!";

0 comments on commit 21c3da6

Please sign in to comment.