From b470eb14f1e6a29f521008891c5c29e429605777 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Mon, 25 Jun 2007 15:20:17 +0000
Subject: - perlchecker fix to please titi

---
 find-lang.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'find-lang.pl')

diff --git a/find-lang.pl b/find-lang.pl
index 9eec2a3..4bcb0eb 100644
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -21,9 +21,9 @@ my ($buildroot, @searchname) = @ARGV;
 my ($pkgname) = @searchname or die "Main name to find missing\n";
 $buildroot or die "No buildroot given\n";
 
-my %finallist = (); # filename => attr, easy way to perform uniq
+my %finallist; # filename => attr, easy way to perform uniq
 
-find(
+File::Find::find(
     sub {
         my $file = substr($File::Find::name, length($buildroot));
         my ($pkg, $lang, $parent);
-- 
cgit v1.2.1