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

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

diff --git a/webtools/bugzilla/defparams.pl b/webtools/bugzilla/defparams.pl
index 5e2110d6143b..60a2d7726e47 100644
--- a/webtools/bugzilla/defparams.pl
+++ b/webtools/bugzilla/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);
 }