From 20c9d9f0f17e6c99f7bc69264c83071df008a883 Mon Sep 17 00:00:00 2001
From: Joe Cooper <joe@virtualmin.com>
Date: Fri, 3 Jun 2016 01:15:14 -0700
Subject: [PATCH] strict/warn

---
 bind8/save_view.cgi | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/bind8/save_view.cgi b/bind8/save_view.cgi
index 12a5f19f4..0f57d44da 100755
--- a/bind8/save_view.cgi
+++ b/bind8/save_view.cgi
@@ -1,13 +1,16 @@
 #!/usr/local/bin/perl
 # save_view.cgi
 # Update an existing view
+use strict;
+use warnings;
+our (%access, %text, %in);
 
 require './bind8-lib.pl';
 &ReadParse();
 &error_setup($text{'view_err'});
-$pconf = &get_config_parent();
-$conf = $pconf->{'members'};
-$view = $conf->[$in{'index'}];
+my $pconf = &get_config_parent();
+my $conf = $pconf->{'members'};
+my $view = $conf->[$in{'index'}];
 $access{'views'} || &error($text{'view_ecannot'});
 &can_edit_view($view) || &error($text{'view_ecannot'});
 $access{'ro'} && &error($text{'view_ecannot'});
@@ -24,6 +27,7 @@ $access{'ro'} && &error($text{'view_ecannot'});
 if ($in{'transfer-source'})
 {
         &check_ipaddress($in{'transfer-source'}) || &error(&text('net_eaddr', $in{'transfer-source'}));
+        my @tvals;
         push(@tvals, $in{'transfer-source'});
         if (@tvals)
         {