From bee4a4029bf72edc09cd73a530629a42947ab05d Mon Sep 17 00:00:00 2001
From: Joe Cooper <joe@virtualmin.com>
Date: Thu, 2 Jun 2016 01:12:45 -0700
Subject: [PATCH] strict/warn

---
 bind8/restart.cgi | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bind8/restart.cgi b/bind8/restart.cgi
index ca52a8190..7fb68a97c 100755
--- a/bind8/restart.cgi
+++ b/bind8/restart.cgi
@@ -1,6 +1,9 @@
 #!/usr/local/bin/perl
 # restart.cgi
 # Restart the running named
+use strict;
+use warnings;
+our (%access, %text, %in);
 
 require './bind8-lib.pl';
 &ReadParse();
@@ -8,13 +11,13 @@ $access{'ro'} && &error($text{'restart_ecannot'});
 $access{'apply'} == 1 || $access{'apply'} == 3 ||
 	&error($text{'restart_ecannot'});
 &error_setup($text{'restart_err'});
-$err = &restart_bind();
+my $err = &restart_bind();
 &error($err) if ($err);
 
 if ($access{'remote'}) {
 	# Restart all slaves too
 	&error_setup();
-	@slaveerrs = &restart_on_slaves();
+	my @slaveerrs = &restart_on_slaves();
 	if (@slaveerrs) {
 		&error(&text('restart_errslave',
 		     "<p>".join("<br>", map { "$_->[0]->{'host'} : $_->[1]" }