diff options
Diffstat (limited to 'find-lang.pl')
| -rw-r--r-- | find-lang.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/find-lang.pl b/find-lang.pl index ded540b..4a53cdf 100644 --- a/find-lang.pl +++ b/find-lang.pl @@ -47,16 +47,16 @@ File::Find::find( return; } ($pkg, $lang, $parent) = ($3, $2, $1); - } elsif ($file =~ m:^(/usr/share/man)/([^/_@\.]+)[^/]*/man[^/]+/([^/.]+)\.\d\.[^/]+$:) { + } elsif ($file =~ m:^(/+usr/share/man)/([^/_@\.]+)[^/]*/man[^/]+/([^/.]+)\.\d[^/]*$:) { if (!$withman) { return; } - ($pkg, $lang, $parent) = ($3, $2, $1); + $file .= '*'; } else { return; } - if (!((grep { $_ eq $pkg } @searchname) || $allname)) { + if (! ((grep { $_ eq $pkg } @searchname) || $allname)) { return; } my $rpmlang = $lang eq 'C' ? "" : "%lang($lang)"; @@ -68,7 +68,7 @@ File::Find::find( $buildroot || '/' ); -open(my $hlang, ">", "$pkgname.lang") or die "canno't open $pkgname.lang\n"; +open(my $hlang, '>', "$pkgname.lang") or die "canno't open $pkgname.lang\n"; foreach (sort keys %finallist) { print $hlang "$finallist{$_}$_\n"; |