From: minima <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;