pmgtunnel.pm - fix call to socketfile()

diff --git a/PMG/Service/pmgtunnel.pm b/PMG/Service/pmgtunnel.pm
index d229170fabd9180ac7fb9c77685ab5ea79ddb71a..4b8d16a2de5e99f1c843b384ebc577dc6550e968 100644 (file)
--- a/PMG/Service/pmgtunnel.pm
+++ b/PMG/Service/pmgtunnel.pm
@@ -48,7 +48,7 @@ sub finish_children {
            my $ip = $workers->{$cpid}->{ip};
            my $cid = $workers->{$cpid}->{cid};
            syslog('err', "tunnel finished $cpid $ip");
-           unlink $socketfile->{$cid};
+           unlink $socketfile->($cid);
            $delayed_exec->{$cid} = time + ($startcount->{$cid} > 5 ? 60 : 10);
            delete $workers->{$cpid};
        }