aboutsummaryrefslogtreecommitdiffstats
path: root/find-lang.pl
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2007-08-23 13:03:22 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2007-08-23 13:03:22 +0000
commite23598049dd4d670b651f51c7df5bdee41374b2f (patch)
tree4cbd6bada292bc44b5a2311dfe93a0c7e667c270 /find-lang.pl
parentd1532adb1b15d1829c28b5bb0c63920fc73f26d4 (diff)
downloadrpm-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
Diffstat (limited to 'find-lang.pl')
-rw-r--r--find-lang.pl5
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);
}
}