From 39ea19e0cc7ba6b1603ad133112caa20ae35b3d6 Mon Sep 17 00:00:00 2001 From: Funda Wang Date: Mon, 19 Sep 2011 03:17:11 +0000 Subject: 1.144: Add support for fdo /usr/share/help when find_lang --- find-lang.pl | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'find-lang.pl') diff --git a/find-lang.pl b/find-lang.pl index 66f507c..f14f2e0 100755 --- a/find-lang.pl +++ b/find-lang.pl @@ -11,6 +11,7 @@ use Pod::Usage; GetOptions( 'all-name' => \my $allname, 'with-gnome' => \my $withgnome, + 'with-help' => \my $withhelp, 'with-kde' => \my $withkde, 'with-html' => \my $withhtml, 'without-mo' => \my $withoutmo, @@ -53,6 +54,14 @@ File::Find::find( if (pkg_match($pkg)) { parent_to_own($langfile, $file, $lang); } + } elsif ($file =~ m:^((.*/share/help)/([^/]+)/([^/]+))/([^/]+).*:) { + if (!$withhelp) { + return; + } + my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1); + if (pkg_match($pkg)) { + parent_to_own($langfile, $file, $lang); + } } elsif ($file =~ m:^((.*/doc/kde)/HTML/([^/@]+)[^/]*)/([^/]+)/.*:) { if (!$withkde) { return; -- cgit v1.2.1