aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--find-lang.pl8
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";