aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica/Telekinesis
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:58:56 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:58:56 +0200
commitd19c847b0878390e540fe1e798b9a560aa797fc4 (patch)
tree570721dbc8af29baf544b21e64ee8c3844e34ba6 /lib/Arctica/Telekinesis
parente6677c2b2e4d4924d9565846cab94f974bd4dfce (diff)
downloadperl-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.
Diffstat (limited to 'lib/Arctica/Telekinesis')
-rw-r--r--lib/Arctica/Telekinesis/Client.pm14
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'}) {