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

---
 bind8/sign_zone.cgi | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/bind8/sign_zone.cgi b/bind8/sign_zone.cgi
index 5473e4745..e8b3b0a83 100755
--- a/bind8/sign_zone.cgi
+++ b/bind8/sign_zone.cgi
@@ -1,17 +1,20 @@
 #!/usr/local/bin/perl
 # Sign a master zone
+use strict;
+use warnings;
+our (%access, %text, %in);
 
 require './bind8-lib.pl';
 &error_setup($text{'sign_err'});
 &ReadParse();
-$zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
-$dom = $zone->{'name'};
+my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'});
+my $dom = $zone->{'name'};
 &can_edit_zone($zone) ||
 	&error($text{'master_ecannot'});
 
 # Do the signing
 &lock_file(&make_chroot(&absolute_path($zone->{'file'})));
-$err = &sign_dnssec_zone($zone, 1);
+my $err = &sign_dnssec_zone($zone, 1);
 &error($err) if ($err);
 &unlock_file(&make_chroot(&absolute_path($zone->{'file'})));
 $err = &restart_zone($zone->{'name'}, $zone->{'view'});