diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-06-25 15:20:17 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-06-25 15:20:17 +0000 |
| commit | b470eb14f1e6a29f521008891c5c29e429605777 (patch) | |
| tree | 252f2905578c576790476c1fb2aff1e9209067fb /find-lang.pl | |
| parent | 1559f3e7852fcdc896ea0791fafa65a0047741bb (diff) | |
| download | rpm-setup-b470eb14f1e6a29f521008891c5c29e429605777.tar rpm-setup-b470eb14f1e6a29f521008891c5c29e429605777.tar.gz rpm-setup-b470eb14f1e6a29f521008891c5c29e429605777.tar.bz2 rpm-setup-b470eb14f1e6a29f521008891c5c29e429605777.tar.xz rpm-setup-b470eb14f1e6a29f521008891c5c29e429605777.zip | |
- perlchecker fix to please titi
Diffstat (limited to 'find-lang.pl')
| -rw-r--r-- | find-lang.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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); |