X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=4d716ce79844f486132e09d917b715381aebd070;hb=9c1c3d6366ec08c767170e5ba478ac34a563032d;hp=ec18e19f499f4298921d127909f01ab6644c14fe;hpb=eb944656dcd2b715338ea025fbad11e918506e26;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index ec18e19f..4d716ce7 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -693,9 +693,8 @@ sub normal # input filter if required return unless $self->in_filter_route($parent); - my @rout = $parent->del_user($uref); - - $self->route_pc17($parent, @rout) if @rout; + $parent->del_user($uref); + $self->route_pc17($parent, $uref); return; }