From 0cdc8c93ae1e44a2db2d2250eb6d56429af39dd7 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Mon, 25 Jun 2007 17:32:28 +0000
Subject: - man page are compress after install step, taking care to filename
 to handle all case

---
 find-lang.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/find-lang.pl b/find-lang.pl
index ded540b..4a53cdf 100644
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -47,16 +47,16 @@ 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 .= '*';
         } else {
             return;
         }
-        if (!((grep { $_ eq $pkg } @searchname) || $allname)) {
+        if (! ((grep { $_ eq $pkg } @searchname) || $allname)) {
             return;
         }
         my $rpmlang = $lang eq 'C' ? "" : "%lang($lang)";
@@ -68,7 +68,7 @@ File::Find::find(
     $buildroot || '/'
 );
 
-open(my $hlang, ">", "$pkgname.lang") or die "canno't open $pkgname.lang\n";
+open(my $hlang, '>', "$pkgname.lang") or die "canno't open $pkgname.lang\n";
 
 foreach (sort keys %finallist) {
     print $hlang "$finallist{$_}$_\n";
-- 
cgit v1.2.1