From: Mark Andrews <marka@isc.org>
Date: Fri, 21 Dec 2012 01:58:58 +0000 (+1100)
Subject: sign_tcp_continuation doesn't work with the newer versions of
X-Git-Tag: v9.10.0a1~641
X-Git-Url: http://git.ipfire.org/gitweb/?a=commitdiff_plain;h=ab91ece513778d3b13d2b0cbe5554292e14adf91;p=thirdparty%2Fbind9.git

sign_tcp_continuation doesn't work with the newer versions of
Net:DNS.  Code has been submitted so we don't need to use
the sign_tcp_continuation hack in future.
---

diff --git a/bin/tests/system/ans.pl b/bin/tests/system/ans.pl
index 2a5c535fb6e..d840c1d9215 100644
--- a/bin/tests/system/ans.pl
+++ b/bin/tests/system/ans.pl
@@ -322,6 +322,7 @@ sub handleTCP {
 	# get the existing signature if any, and clear the additional section
 	my $prev_tsig;
 	my $signer;
+	my $continuation = 0;
 	while (my $rr = $request->pop("additional")) {
 		if ($rr->type eq "TSIG") {
 			$prev_tsig = $rr;
@@ -371,8 +372,12 @@ sub handleTCP {
 				}
 				
 				$tsig->sign_func($signer) if defined($signer);
+				$tsig->continuation($continuation)
+					if ($Net::DNS::VERSION >= 0.71);
 				$packet->sign_tsig($tsig);
-				$signer = \&sign_tcp_continuation;
+				$signer = \&sign_tcp_continuation
+					if ($Net::DNS::VERSION < 0.70);
+				$continuation = 1;
 
 				my $copy =
 					Net::DNS::Packet->new(\($packet->data));