diff options
Diffstat (limited to 'find-lang.pl')
| -rw-r--r-- | find-lang.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/find-lang.pl b/find-lang.pl index 9b9c7a4..249125d 100644 --- a/find-lang.pl +++ b/find-lang.pl @@ -43,7 +43,7 @@ File::Find::find( } my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1); if (pkg_match($pkg)) { - parent_to_own($langfile, $file, $lang); + own_file($file, $lang); } } elsif ($file =~ m:^((.*/gnome/help)/([^/]+)/([^/]+)).*:) { if (!$withgnome) { @@ -115,6 +115,11 @@ sub pkg_match { return; } +sub own_file { + my ($file, $lang) = @_; + $finallist{$file}{'lang'}{$lang} = 1; +} + sub parent_to_own { my ($parent, $file, $lang) = @_; debug("parent_to_own: $parent, $file, $lang"); @@ -135,7 +140,7 @@ sub parent_to_own { $finallist{$parent}{'lang'}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); } - $finallist{$file}{'lang'}{$lang} = 1; + own_file($file, $lang); debug("Parent %s will be %s", $file, $lang); } |