diff options
| author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:48:07 +0200 |
|---|---|---|
| committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 18:48:07 +0200 |
| commit | ac9ec067d909458c6dee84ef0af21171f8e92601 (patch) | |
| tree | da9d25766e832866cb711d74cccf6cdc4f762e9b | |
| parent | 905fd39dd17c95580e5e2c5d5dcf97cabc0436bb (diff) | |
| download | perl-Arctica-Telekinesis-Server-ac9ec067d909458c6dee84ef0af21171f8e92601.tar.gz perl-Arctica-Telekinesis-Server-ac9ec067d909458c6dee84ef0af21171f8e92601.tar.bz2 perl-Arctica-Telekinesis-Server-ac9ec067d909458c6dee84ef0af21171f8e92601.zip | |
lib/Arctica/Telekinesis/Server.pm: Avoid keys on references. Forbidden in Debian 9's Perl version anyway.
| -rw-r--r-- | lib/Arctica/Telekinesis/Server.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Arctica/Telekinesis/Server.pm b/lib/Arctica/Telekinesis/Server.pm index e2705ea..cf7f958 100644 --- a/lib/Arctica/Telekinesis/Server.pm +++ b/lib/Arctica/Telekinesis/Server.pm @@ -124,7 +124,7 @@ sub c2s_service_neg { BugOUT(9,"TIME TO ACTIVATE THIS STUFF!"); $self->{'status'}{'active'} = 1; if ($self->{'running_apps'}) { - foreach my $rapp_id (sort (keys $self->{'running_apps'})) { + foreach my $rapp_id (sort (keys %{$self->{'running_apps'}})) { print "\t\t$rapp_id\n"; $self->tekicli_send('csappreg',$rapp_id); } @@ -231,7 +231,7 @@ sub _app_reg { if ($data->{'service_req'}) { my %s_providing; my %s_missing; - foreach my $key (keys $data->{'service_req'}) { + foreach my $key (keys %{$data->{'service_req'}}) { if ($key =~ /^([a-z]{4,24})$/) { my $service_name = $1; $self->{'running_apps'}{$declared_id->{'self_aID'}}{'service_req'} = $service_name; |