From 2dcaad828cdf640fcda1620b82b5c0c4e0ecac2f Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Tue, 16 Oct 2012 17:17:39 -0700
Subject: [PATCH] Fix saving of transfer-source
 https://sourceforge.net/tracker/?func=detail&atid=485894&aid=3577687&group_id=17457

---
 bind8/save_net.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bind8/save_net.cgi b/bind8/save_net.cgi
index f9cbbee16..9289511d3 100755
--- a/bind8/save_net.cgi
+++ b/bind8/save_net.cgi
@@ -62,7 +62,7 @@ if ($in{'tport_def'} == 0) {
 	$in{'tport'} =~ /^\d+$/ || &error(&text('net_eport', $in{'sport'}));
 	push(@tvals, "port", $in{'tport'});
 	}
-if (tqvals) {
+if (@tvals) {
 	&save_directive($options, 'transfer-source',
 			[ { 'name' => 'transfer-source',
 			    'values' => \@tvals } ], 1);