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

---
 bind8/open.cgi | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/bind8/open.cgi b/bind8/open.cgi
index 0fcba6e7e..5f1cc7fc9 100755
--- a/bind8/open.cgi
+++ b/bind8/open.cgi
@@ -1,9 +1,12 @@
 #!/usr/local/bin/perl
 # Add some zone to the open list
+use strict;
+use warnings;
+our (%in);
 
 require './bind8-lib.pl';
 &ReadParse();
-@heiropen = &get_heiropen();
+my @heiropen = &get_heiropen();
 push(@heiropen, $in{'what'});
 &save_heiropen(\@heiropen);
 &redirect("index.cgi#$in{'what'}");