From 3ef8d17ed5d418e33f5f227b19ef4eb89cad3a79 Mon Sep 17 00:00:00 2001
From: Joe Cooper <joe@virtualmin.com>
Date: Mon, 30 May 2016 17:18:27 -0700
Subject: [PATCH] strict/warn

---
 bind8/conf_ncheck.cgi | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/bind8/conf_ncheck.cgi b/bind8/conf_ncheck.cgi
index 1b1249d8c..48d3c9a07 100755
--- a/bind8/conf_ncheck.cgi
+++ b/bind8/conf_ncheck.cgi
@@ -1,5 +1,9 @@
 #!/usr/local/bin/perl
 # Check the whole BIND config and report problems
+use strict;
+use warnings;
+# Globals
+our (%access, %text, %config);
 
 require './bind8-lib.pl';
 &ReadParse();
@@ -8,8 +12,8 @@ $access{'defaults'} || &error($text{'ncheck_ecannot'});
 &ui_print_header(undef, $text{'ncheck_title'}, "",
 		 undef, undef, undef, undef, &restart_links());
 
-$file = &make_chroot($config{'named_conf'});
-@errs = &check_bind_config();
+my $file = &make_chroot($config{'named_conf'});
+my @errs = &check_bind_config();
 if (@errs) {
 	# Show list of errors
 	print "<b>",&text('ncheck_errs', "<tt>$file</tt>"),"</b><p>\n";