From 962a4225f0acecdee4b55c658aa05a3bc042b2e8 Mon Sep 17 00:00:00 2001
From: Joe Cooper <joe@virtualmin.com>
Date: Tue, 31 May 2016 23:05:59 -0700
Subject: [PATCH] strict/warn

---
 bind8/edit_options.cgi | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/bind8/edit_options.cgi b/bind8/edit_options.cgi
index 2251f79b2..177f0daee 100755
--- a/bind8/edit_options.cgi
+++ b/bind8/edit_options.cgi
@@ -1,19 +1,22 @@
 #!/usr/local/bin/perl
 # edit_options.cgi
 # Display options for an existing master zone
+use strict;
+use warnings;
+our (%access, %text, %in); 
 
 require './bind8-lib.pl';
 &ReadParse();
 
-$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
-$z = &zone_to_config($zone);
-$zconf = $z->{'members'};
-$dom = $zone->{'name'};
+my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
+my $z = &zone_to_config($zone);
+my $zconf = $z->{'members'};
+my $dom = $zone->{'name'};
 &can_edit_zone($zone) ||
 	&error($text{'master_ecannot'});
 
 $access{'opts'} || &error($text{'master_eoptscannot'});
-$desc = &ip6int_to_net(&arpa_to_ip($dom));
+my $desc = &ip6int_to_net(&arpa_to_ip($dom));
 &ui_print_header($desc, $text{'master_opts'}, "",
 		 undef, undef, undef, undef, &restart_links($zone));