Commit f70c7299 authored by Son Nguyen's avatar Son Nguyen

Fix the warning of use of qw()

Perl version > 5.13.5 requires the explicit syntax
parent f936d3f5
...@@ -20,7 +20,7 @@ use FindBin; ...@@ -20,7 +20,7 @@ use FindBin;
use File::Path qw(mkpath rmtree); use File::Path qw(mkpath rmtree);
use LWP::UserAgent; use LWP::UserAgent;
foreach my $c qw(DATA DOCROOT SCRIPTS) { foreach my $c (qw(DATA DOCROOT SCRIPTS)) {
exists $ENV{$c} or die ("\$ENV{$c} undefined"); exists $ENV{$c} or die ("\$ENV{$c} undefined");
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment