diff options
-rw-r--r-- | find-lang.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/find-lang.pl b/find-lang.pl index b1b3dec..52e6379 100644 --- a/find-lang.pl +++ b/find-lang.pl @@ -57,11 +57,12 @@ 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 =~ s/\.[^\.]+$//; $file .= '*'; } else { return; @@ -105,7 +106,7 @@ sub parent_to_own { while (my $part = shift(@subdir)) { $parent .= "/$part"; $finallist{$parent}{dir} = 1; - $finallist{$file}{'lang'}{$lang} = 1; + $finallist{$parent}{'lang'}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); } } |