cope with empty virtual ports, RT#10574

diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive
index b9ea95b..f6fc499 100644 (file)
--- a/FS/bin/freeside-torrus-srvderive
+++ b/FS/bin/freeside-torrus-srvderive
@@ -69,6 +69,7 @@ MAIN: while (1) {
     my $serviceid = $torrus_srvderive->serviceid;
 
     my @serviceids = $torrus_srvderive->component_serviceids;
     my $serviceid = $torrus_srvderive->serviceid;
 
     my @serviceids = $torrus_srvderive->component_serviceids;

+    next unless @serviceids; #don't try to search for empty virtual ports

 
     my @in = ();
     for my $dir ('_IN', '_OUT') {
 
     my @in = ();
     for my $dir ('_IN', '_OUT') {