diff options
Diffstat (limited to 'lib/Arctica/Core/JABus/Socket.pm')
| -rw-r--r-- | lib/Arctica/Core/JABus/Socket.pm | 2 |
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; } |