remove warning message about exiting a subroutine via next

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 966f0eefb0d88f4a5f4d7d8a105329542deef3df..b14b8102e4c2c5962c93381991c06eb989076027 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1243,7 +1243,7 @@ sub send_prot_line
                $routeit =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
        } else {
                $routeit = adjust_hops($self, $line);  # adjust its hop count by node name
-               next unless $routeit;
+               return unless $routeit;
        }
        if ($filter) {
                $self->send($routeit) if $routeit;