PMG/Service/pmgtunnel.pm: avoid use of $cinfo->{remnodes}

diff --git a/PMG/Service/pmgtunnel.pm b/PMG/Service/pmgtunnel.pm
index 6ca534b0ddf7462377b9a80f5901de0b487d6a87..15390746404a9f03442ae3d38ce472782a00671a 100644 (file)
--- a/PMG/Service/pmgtunnel.pm
+++ b/PMG/Service/pmgtunnel.pm
@@ -53,9 +53,8 @@ sub start_tunnels {
     my $role = $cinfo->{local}->{type} // '-';
     return if $role eq '-';
 
-    foreach my $cid (@{$cinfo->{remnodes}}) {
+    foreach my $cid (keys %{$cinfo->{ids}}) {
        my $ni = $cinfo->{ids}->{$cid};
-       next if !$ni; # just to be sure
        next if $ni->{ip} eq $cinfo->{local}->{ip}; # just to be sure
 
        my $dbport = $cinfo->{dbport}->{$cid};

diff --git a/bin/pmgtunnel b/bin/pmgtunnel
index 4e0a29786f6e8707d102700d12a86806cd41a54d..cc3188f21a73192dd676b1deab9c55f8d740799d 100755 (executable)
--- a/bin/pmgtunnel
+++ b/bin/pmgtunnel
@@ -2,7 +2,7 @@
 
 $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
 
-delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};  
+delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 
 use strict;
 use warnings;