diff options
| author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:51:23 +0200 |
|---|---|---|
| committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:51:23 +0200 |
| commit | 18d4c65100a568db71e4334c643e4ec46e341aef (patch) | |
| tree | 86d02d938bfdf4501c1e185480a0d20a76d6da72 | |
| parent | 48777708b94d71fc78288d9d7c7fe6a92d2213a0 (diff) | |
| download | perl-Arctica-Core-JABus-Socket-18d4c65100a568db71e4334c643e4ec46e341aef.tar.gz perl-Arctica-Core-JABus-Socket-18d4c65100a568db71e4334c643e4ec46e341aef.tar.bz2 perl-Arctica-Core-JABus-Socket-18d4c65100a568db71e4334c643e4ec46e341aef.zip | |
lib/Arctica/Core/JABus/Socket.pm:: Avoid keys on references. Forbidden in Debian 9's Perl version anyway.
| -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; } |