aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:48:07 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 18:48:07 +0200
commitac9ec067d909458c6dee84ef0af21171f8e92601 (patch)
treeda9d25766e832866cb711d74cccf6cdc4f762e9b
parent905fd39dd17c95580e5e2c5d5dcf97cabc0436bb (diff)
downloadperl-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.pm4
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;