From e23598049dd4d670b651f51c7df5bdee41374b2f Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Thu, 23 Aug 2007 13:03:22 +0000
Subject: - tag directory, fix directory tag set

---
 find-lang.pl | 5 +++--
 1 file 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);
     }
 }
-- 
cgit v1.2.1