aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica/Telekinesis
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Arctica/Telekinesis')
-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;