From 95973482f21efcac37d4c608bf6c47d67d9bfca3 Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Thu, 7 Apr 2005 15:08:36 +0000
Subject: Bug 287763: Receiving Error - Insecure dependency in require... -
 Patch by byron jones (glob) <bugzilla@glob.com.au> r=joel a=myk

---
 defparams.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'defparams.pl')

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);
 }
 
-- 
cgit v1.2.3-24-g4f1b