- man page are compress after install step, taking care to filename to handle all case

1 files 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";