From 18d4c65100a568db71e4334c643e4ec46e341aef Mon Sep 17 00:00:00 2001 From: Mike Gabriel Date: Fri, 23 Jun 2017 18:51:23 +0200 Subject: lib/Arctica/Core/JABus/Socket.pm:: Avoid keys on references. Forbidden in Debian 9's Perl version anyway. --- lib/Arctica/Core/JABus/Socket.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; } -- cgit v1.2.3