From 1559f3e7852fcdc896ea0791fafa65a0047741bb Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Mon, 25 Jun 2007 15:08:08 +0000
Subject: - allow to pass multiple name to find

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

(limited to 'find-lang.pl')

diff --git a/find-lang.pl b/find-lang.pl
index b40ea46..9eec2a3 100644
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -17,7 +17,9 @@ GetOptions(
     'with-man' => \my $withman,
 ) or pod2usage();
 
-my ($buildroot, $pkgname) = @ARGV;
+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
 
@@ -54,7 +56,7 @@ find(
         } else {
             return;
         }
-        if ($pkg ne $pkgname && !$allname) {
+        if (!((grep { $_ eq $pkg } @searchname) || $allname)) {
             return;
         }
         my $rpmlang = $lang eq 'C' ? "" : "%lang($lang)";
-- 
cgit v1.2.1