Skip to content

GitLab

Commit f70c7299 authored by Son Nguyen's avatar Son Nguyen
Browse files
Options

Fix the warning of use of qw() 

Perl version > 5.13.5 requires the explicit syntax
parent f936d3f5
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
mahara-langpacks/langpacks.pl
View file @ f70c7299
...@@ -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