From ac9ec067d909458c6dee84ef0af21171f8e92601 Mon Sep 17 00:00:00 2001
From: Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
Date: Fri, 23 Jun 2017 18:48:07 +0200
Subject: lib/Arctica/Telekinesis/Server.pm: Avoid keys on references.
 Forbidden in Debian 9's Perl version anyway.

---
 lib/Arctica/Telekinesis/Server.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Arctica')

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;
-- 
cgit v1.2.3