From 6d8ce1524d62dceb723168c4c652bb731281fca9 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Thu, 2 Mar 2017 21:39:59 -0800
Subject: [PATCH] Fix perl errors

---
 awstats.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/awstats.pl b/awstats.pl
index e306774..596e170 100755
--- a/awstats.pl
+++ b/awstats.pl
@@ -8,6 +8,7 @@
 require './virtualmin-awstats-lib.pl';
 
 my $debug;
+my $output;
 if ($ARGV[0] eq "--debug") {
 	# Enable debug mode, which shows the output from the report command
 	shift(@ARGV);
@@ -20,7 +21,7 @@
 	-d $output || die "Missing directory $output";
 	}
 @ARGV == 1 || die "usage: awstats.pl [--debug] [--output dir] <domainname>";
-$dname = shift(@ARGV);
+my $dname = shift(@ARGV);
 
 if ($debug) {
 	&generate_report($ARGV[0], *STDERR, 0);