From: minima Date: Thu, 9 Aug 2001 10:42:21 +0000 (+0000) Subject: remove warning message about exiting a subroutine via next X-Git-Tag: R_1_48~107 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=dba22e4ea40bf62f79365833edbfcc38d6cf8847;p=spider.git remove warning message about exiting a subroutine via next --- 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;