make sure pc16/pc17 nodes are passed correctly

diff --git a/perl/Thingy/RouteFilter.pm b/perl/Thingy/RouteFilter.pm
index 2bb77be9aa329389d644a3fa58de4b3bda2f7c87..79ed6f35407d947ce3ce5fd9dcac8f4d47531f18 100644 (file)
--- 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};