From db85ce94915c8ca0b8898f08ab1f145586bc4a7c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 23 Oct 2012 23:52:11 +0000
Subject: simplify using the regexp

---
 find-lang.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/find-lang.pl b/find-lang.pl
index 4014aa2..3b622da 100755
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -60,8 +60,7 @@ File::Find::find(
         } elsif ($file =~ m!^((/+usr/share/man)/([^/@.]+)[^/]*)/man[^/]+/([^/.]+)\.\d[^/]*!) {
             return if !$withman;
             my ($pkg, $lang, $langfile) = ($4, $3, $1);
-            $file =~ s/\.[^\.]+$//;
-            $file .= '.*';
+            $file =~ s/\.[^\.]+$/.*/;
             parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
         } else {
             return;
-- 
cgit v1.2.1