From dba22e4ea40bf62f79365833edbfcc38d6cf8847 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 9 Aug 2001 10:42:21 +0000 Subject: [PATCH] remove warning message about exiting a subroutine via next --- perl/DXProt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 966f0eef..b14b8102 100644 --- 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; -- 2.43.0