From dba22e4ea40bf62f79365833edbfcc38d6cf8847 Mon Sep 17 00:00:00 2001
From: minima <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.34.1