From 63df57646ff582eaa473728398c1b08fe8745ad3 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Tue, 21 Aug 2007 14:57:49 +0000
Subject: - fix second part of #32366

---
 find-lang.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/find-lang.pl b/find-lang.pl
index 382ed80..f12af1f 100644
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -40,7 +40,7 @@ File::Find::find(
                 return;
             }
             ($pkg, $lang, $parent) = ($4, $3, $2);
-        } elsif ($file =~ m:^(.*/gnome/help/([^/_@]+))[^/]*/([^/]+)$:) {
+        } elsif ($file =~ m:^(.*/gnome/help/([^/]+))/([^/_]+)$:) {
             if (!$withgnome) {
                 return;
             }
@@ -55,7 +55,7 @@ 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;
             }
@@ -104,6 +104,6 @@ sub parent_to_own {
         } else {
             $finallist{$parent} = "$lang %dir ";
         }
-        debug("File %s will be %s", $parent, $finallist{$parent});
+        debug("Parent %s will be %s", $parent, $finallist{$parent});
     }
 }
-- 
cgit v1.2.1