diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-08-23 13:03:22 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-08-23 13:03:22 +0000 |
| commit | e23598049dd4d670b651f51c7df5bdee41374b2f (patch) | |
| tree | 4cbd6bada292bc44b5a2311dfe93a0c7e667c270 | |
| parent | d1532adb1b15d1829c28b5bb0c63920fc73f26d4 (diff) | |
| download | rpm-setup-e23598049dd4d670b651f51c7df5bdee41374b2f.tar rpm-setup-e23598049dd4d670b651f51c7df5bdee41374b2f.tar.gz rpm-setup-e23598049dd4d670b651f51c7df5bdee41374b2f.tar.bz2 rpm-setup-e23598049dd4d670b651f51c7df5bdee41374b2f.tar.xz rpm-setup-e23598049dd4d670b651f51c7df5bdee41374b2f.zip | |
- tag directory, fix directory tag set
| -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); } } |