aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:51:23 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:51:23 +0200
commit18d4c65100a568db71e4334c643e4ec46e341aef (patch)
tree86d02d938bfdf4501c1e185480a0d20a76d6da72
parent48777708b94d71fc78288d9d7c7fe6a92d2213a0 (diff)
downloadperl-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.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;
}