Fix perl errors

virtualmin · Mar 3, 2017 · 6d8ce15 · 6d8ce15
1 parent acae9a2
commit 6d8ce15
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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);