From ca93abc5407988e64d54d151290e724dba56147b Mon Sep 17 00:00:00 2001 From: Joe Cooper Date: Thu, 2 Jun 2016 19:11:04 -0700 Subject: [PATCH] strict/warn --- bind8/save_dnssectools.cgi | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/bind8/save_dnssectools.cgi b/bind8/save_dnssectools.cgi index 1ea175f67..f34b12dc1 100755 --- a/bind8/save_dnssectools.cgi +++ b/bind8/save_dnssectools.cgi @@ -1,5 +1,9 @@ #!/usr/local/bin/perl # save dnssec-tools related options +use strict; +use warnings; +our (%access, %text, %in, %config); +our $module_config_file; require './bind8-lib.pl'; @@ -7,8 +11,8 @@ require './bind8-lib.pl'; &error_setup($text{'dt_conf_err'}); $access{'defaults'} || &error($text{'dt_conf_ecannot'}); -local $conf = get_dnssectools_config(); -local %nv; +my $conf = get_dnssectools_config(); +my %nv; $in{'dt_email'} =~ /(\b[A-Za-z0-9._%+-]+@[A-Za-z0-9-]+\.[A-Za-z0-9-.]*\b)/ || &error($text{'dt_conf_eemail'});