aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Arctica/Core/JABus/Socket.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Arctica/Core/JABus/Socket.pm b/lib/Arctica/Core/JABus/Socket.pm
index 76417cf..e933e86 100644
--- a/lib/Arctica/Core/JABus/Socket.pm
+++ b/lib/Arctica/Core/JABus/Socket.pm
@@ -245,7 +245,7 @@ sub new {
});
} elsif ($self->{'handle_in_dispatch'}) {
my %to_send;
- foreach my $hidp_key (keys $self->{'handle_in_dispatch'}) {#do some filtering here?!
+ foreach my $hidp_key (keys %{$self->{'handle_in_dispatch'}}) {#do some filtering here?!
# print "\t\tKEY:\t$hidp_key\n";
$to_send{$hidp_key} = 1;
}