diff options
| author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:58:56 +0200 |
|---|---|---|
| committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:58:56 +0200 |
| commit | d19c847b0878390e540fe1e798b9a560aa797fc4 (patch) | |
| tree | 570721dbc8af29baf544b21e64ee8c3844e34ba6 | |
| parent | e6677c2b2e4d4924d9565846cab94f974bd4dfce (diff) | |
| download | perl-Arctica-Telekinesis-Client-d19c847b0878390e540fe1e798b9a560aa797fc4.tar.gz perl-Arctica-Telekinesis-Client-d19c847b0878390e540fe1e798b9a560aa797fc4.tar.bz2 perl-Arctica-Telekinesis-Client-d19c847b0878390e540fe1e798b9a560aa797fc4.zip | |
lib/Arctica/Telekinesis/Client.pm: Avoid keys on references. Forbidden in Debian 9's Perl version anyway.
| -rw-r--r-- | lib/Arctica/Telekinesis/Client.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Arctica/Telekinesis/Client.pm b/lib/Arctica/Telekinesis/Client.pm index b2525eb..9033665 100644 --- a/lib/Arctica/Telekinesis/Client.pm +++ b/lib/Arctica/Telekinesis/Client.pm @@ -110,13 +110,13 @@ sub app_init_win_and_targets { if ($self->{'running_apps'}{$app_id}) { # print "DUMP YOUR RUMP:\t$app_id\t\n",Dumper($init_data); if ($init_data->{'windows'}) { - foreach my $wid (sort keys $init_data->{'windows'}) { + foreach my $wid (sort keys %{$init_data->{'windows'}}) { print "WINDOW:\t$wid\t\n",# $self->{'running_apps'}{$app_id}{'windows'}{$wid} = $init_data->{'windows'}{$wid}; } } if ($init_data->{'targets'}) { - foreach my $ttid (sort keys $init_data->{'targets'}) { + foreach my $ttid (sort keys %{$init_data->{'targets'}}) { print "TARGETS:\t$ttid\t\n",Dumper($init_data->{'targets'}{$ttid}); $self->{'running_apps'}{$app_id}{'targets'}{$ttid} = $init_data->{'targets'}{$ttid}; if ($self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}) { @@ -192,11 +192,11 @@ sub target_state_change { if ($self->{'running_apps'}{$app_id}) { if ($data->{'data'}{'w'}) { print "DATA/W:\n"; - foreach my $wid (keys $data->{'data'}{'w'}) { + foreach my $wid (keys %{$data->{'data'}{'w'}}) { print "\t$wid\n"; if ($data->{'data'}{'w'}{$wid} and $self->{'running_apps'}{$app_id}{'windows'}{$wid}) { print "\t\tDEEPER 1\n"; - foreach my $key (keys $data->{'data'}{'w'}{$wid}) { + foreach my $key (keys %{$data->{'data'}{'w'}{$wid}}) { print "\t\t\tDEEPER 2:\t$key\n"; if ($data->{'data'}{'w'}{$wid}{$key} ne $self->{'running_apps'}{$app_id}{'windows'}{$wid}{'state'}{$key}) { print "\t\t\t\tD3:\t[$data->{'data'}{'w'}{$wid}{$key}]\t[$self->{'running_apps'}{$app_id}{'windows'}{$wid}{'state'}{$key}]\n"; @@ -205,7 +205,7 @@ sub target_state_change { } # $self->{'running_apps'}{$app_id}{'windows'}{$wid}{'targets'} if ($self->{'running_apps'}{$app_id}{'windows'}{$wid}{'targets'}) { - foreach my $ttid (keys $self->{'running_apps'}{$app_id}{'windows'}{$wid}{'targets'}) { + foreach my $ttid (keys %{$self->{'running_apps'}{$app_id}{'windows'}{$wid}{'targets'}}) { $ch_targets{$ttid} = 1; print "\t\t\t\t\tWCHT:$ttid\n"; } @@ -216,11 +216,11 @@ sub target_state_change { if ($data->{'data'}{'t'}) { warn("DATA/T:"); - foreach my $ttid (keys $data->{'data'}{'t'}) { + foreach my $ttid (keys %{$data->{'data'}{'t'}}) { print "\t$ttid\n"; if ($data->{'data'}{'t'}{$ttid} and $self->{'running_apps'}{$app_id}{'targets'}{$ttid}) { print "\t\tDEEPER 1\n"; - foreach my $key (keys $data->{'data'}{'t'}{$ttid}) { + foreach my $key (keys %{$data->{'data'}{'t'}{$ttid}}) { print "\t\t\tDEEPER 2:\t$key\n"; if ($data->{'data'}{'t'}{$ttid}{$key} ne $self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'}{$key}) { # if ($data->{'data'}{'t'}{$ttid}{'alive'}) { |