summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlpsolit%gmail.com <>2005-04-07 17:08:36 +0200
committerlpsolit%gmail.com <>2005-04-07 17:08:36 +0200
commit95973482f21efcac37d4c608bf6c47d67d9bfca3 (patch)
treed0435c9fd2b9687b7f4cffca560752194c6cf84d
parent0228a007f8c61726032b944c9162aa4a41153ec9 (diff)
downloadbugzilla-95973482f21efcac37d4c608bf6c47d67d9bfca3.tar.gz
bugzilla-95973482f21efcac37d4c608bf6c47d67d9bfca3.tar.xz
Bug 287763: Receiving Error - Insecure dependency in require... - Patch by byron jones (glob) <bugzilla@glob.com.au> r=joel a=myk
-rw-r--r--defparams.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/defparams.pl b/defparams.pl
index 5e2110d61..60a2d7726 100644
--- a/defparams.pl
+++ b/defparams.pl
@@ -226,15 +226,15 @@ sub check_languages {
sub find_languages {
my @languages = ();
opendir(DIR, $templatedir) || return "Can't open 'template' directory: $!";
- my @langdirs = grep { /^[a-z-]+$/i } readdir(DIR);
- closedir DIR;
-
- foreach my $lang (@langdirs) {
+ foreach my $dir (readdir(DIR)) {
+ next unless $dir =~ /^([a-z-]+)$/i;
+ my $lang = $1;
next if($lang =~ /^CVS$/i);
my $deft_path = File::Spec->catdir('template', $lang, 'default');
my $cust_path = File::Spec->catdir('template', $lang, 'custom');
push(@languages, $lang) if(-d $deft_path or -d $cust_path);
}
+ closedir DIR;
return join(', ', @languages);
}