X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FRouteFilter.pm;h=79ed6f35407d947ce3ce5fd9dcac8f4d47531f18;hb=f942dabdab73e5841f16ead2a41a52d6b5b05eb8;hp=2bb77be9aa329389d644a3fa58de4b3bda2f7c87;hpb=273f7334089ce873c5c7614f1d65ac38fed313ed;p=spider.git diff --git a/perl/Thingy/RouteFilter.pm b/perl/Thingy/RouteFilter.pm index 2bb77be9..79ed6f35 100644 --- a/perl/Thingy/RouteFilter.pm +++ b/perl/Thingy/RouteFilter.pm @@ -88,8 +88,10 @@ sub out_filter delete $thing->{fpc19n}; delete $thing->{fpc21n}; - $thing->{fpc16n} = _filter($dxchan, $thing->{pc16n}) if $thing->{pc16u} && $thing->{pc16n}; - $thing->{fpc17n} = _filter($dxchan, $thing->{pc17n}) if $thing->{pc17u} && $thing->{pc17n}; + my @n16 = _filter($dxchan, $thing->{pc16n}) if $thing->{pc16u} && $thing->{pc16n}; + $thing->{fpc16n} = $n16[0] if @n16; + my @n17 = _filter($dxchan, $thing->{pc17n}) if $thing->{pc17u} && $thing->{pc17n}; + $thing->{fpc17n} = $n17[0] if @n17; my @pc19 = _filter($dxchan, @{$thing->{pc19n}}) if $thing->{pc19n}; $thing->{fpc19n} = \@pc19 if @pc19; my @pc21 = _filter($dxchan, @{$thing->{pc21n}}) if $thing->{pc21n};