From 6ab9025d629be79dd244742e01d2e5074940c630 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 23 Oct 2012 23:52:01 +0000
Subject: perl_checker cleanups

---
 find-lang.pl | 41 ++++++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 21 deletions(-)

diff --git a/find-lang.pl b/find-lang.pl
index e1f0f47..571ab1c 100755
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -21,7 +21,7 @@ GetOptions(
 
 my ($buildroot, @searchname) = @ARGV;
 $buildroot or die "No buildroot given\n";
-$buildroot =~ s:/+$::; # removing trailing /
+$buildroot =~ s!/+$!!; # removing trailing /
 my ($pkgname) = @searchname or die "Main name to find missing\n";
 
 sub debug {
@@ -37,52 +37,51 @@ File::Find::find(
         my $file = substr($File::Find::name, length($buildroot));
         -f $File::Find::name or -l $File::Find::name or return;
         debug("next file is %s", $file);
-        my $langfile = $file;
-        if ($file =~ m:^((.*/share/locale)/([^/@]+)[^/]*).*/([^/]+)\.mo:) {
+        if ($file =~ m!^((.*/share/locale)/([^/@]+)[^/]*).*/([^/]+)\.mo!) {
             if ($withoutmo) {
                 return;
             }
-            my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1);
+            my ($pkg, $lang) = ($4, $3);
             if (pkg_match($pkg)) {
                 own_file($file, $lang);
             }
-        } elsif ($file =~ m:^((.*/gnome/help)/([^/]+)/([^/]+)).*:) {
+        } elsif ($file =~ m!^((.*/gnome/help)/([^/]+)/([^/]+))!) {
             if (!$withgnome) {
                 return;
             }
-            my ($pkg, $lang, $parent, $langfile) = ($3, $4, $2, $1);
+            my ($pkg, $lang, $langfile) = ($3, $4, $1);
             if (pkg_match($pkg)) {
                 parent_to_own($langfile, $file, $lang);
             }
-	} elsif ($file =~ m:^((.*/share/help)/([^/]+)/([^/]+))/([^/]+).*:) {
+	} elsif ($file =~ m!^((.*/share/help)/([^/]+)/([^/]+))/([^/]+)!) {
 	    if (!$withhelp) {
 		return;
 	    }
-	    my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1);
+	    my ($pkg, $lang, $langfile) = ($4, $3, $1);
 	    if (pkg_match($pkg)) {
 		parent_to_own($langfile, $file, $lang);
 	    }
-        } elsif ($file =~ m:^((.*/doc/kde)/HTML/([^/@]+)[^/]*)/([^/]+)/.*:) {
+        } elsif ($file =~ m!^((.*/doc/kde)/HTML/([^/@]+)[^/]*)/([^/]+)/!) {
             if (!$withkde) {
                 return;
             }
-            my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1);
+            my ($pkg, $lang, $langfile) = ($4, $3, $1);
             if (pkg_match($pkg)) {
                 parent_to_own($langfile, $file, $lang);
             }
-        } elsif ($file =~ m:^((.*/doc)/HTML/([^/@]+)[^/]*)/([^/_]+).*:) {
+        } elsif ($file =~ m!^((.*/doc)/HTML/([^/@]+)[^/]*)/([^/_]+)!) {
             if (!$withhtml) {
                 return;
             }
-            my ($pkg, $lang, $parent, $langfile) = ($4, $3, $2, $1);
+            my ($pkg, $lang, $langfile) = ($4, $3, $1);
             if (pkg_match($pkg)) {
                 parent_to_own($langfile, $file, $lang);
             }
-        } elsif ($file =~ m:^((/+usr/share/man)/([^/@\.]+)[^/]*)/man[^/]+/([^/.]+)\.\d[^/]*:) {
+        } elsif ($file =~ m!^((/+usr/share/man)/([^/@.]+)[^/]*)/man[^/]+/([^/.]+)\.\d[^/]*!) {
             if (!$withman) {
                 return;
             }
-            my ($pkg, $lang, $parent, $langfile) = ($4, $3, undef, $1);
+            my ($pkg, $lang, $langfile) = ($4, $3, $1);
             $file =~ s/\.[^\.]+$//;
             $file .= '.*';
             if (pkg_match($pkg)) {
@@ -98,9 +97,9 @@ File::Find::find(
 open(my $hlang, '>', "$pkgname.lang") or die "cannot open $pkgname.lang\n";
 
 foreach my $f (sort keys %finallist) {
-    my ($lang, @otherlang) = keys %{ $finallist{$f}{'lang'} || {}};
+    my ($lang, @otherlang) = keys %{ $finallist{$f}{lang} || {} };
     my $l = sprintf("%s%s%s",
-        $finallist{$f}{'dir'} ? '%dir ' : '',
+        $finallist{$f}{dir} ? '%dir ' : '',
         @otherlang == 0 && $lang && $lang ne 'C'
             ? "%lang($lang) "
             : '', # skip if multiple lang, 'C' or dir
@@ -117,7 +116,7 @@ exit(0);
 
 sub pkg_match {
     my ($pkg) = @_;
-    if ($allname) { return 1 };
+    return 1 if $allname;
     if (grep { $_ eq $pkg } @searchname) {
         return 1;
     }
@@ -126,7 +125,7 @@ sub pkg_match {
 
 sub own_file {
     my ($file, $lang) = @_;
-    $finallist{$file}{'lang'}{$lang} = 1;
+    $finallist{$file}{lang}{$lang} = 1;
 }
 
 sub parent_to_own {
@@ -135,18 +134,18 @@ sub parent_to_own {
     if ($allname) {
         #my @subdir = grep { $_ } split('/', substr($file, length($parent)));
         #$parent .= '/' . shift(@subdir);
-        $finallist{$parent}{'lang'}{$lang} = 1;
+        $finallist{$parent}{lang}{$lang} = 1;
         debug("Parent %s will be %s", $parent, $lang);
     } else {
     my @subdir = grep { $_ } split('/', substr($file, length($parent)));
     pop(@subdir);
     $finallist{$parent}{dir} = 1;
-    $finallist{$parent}{'lang'}{$lang} = 1;
+    $finallist{$parent}{lang}{$lang} = 1;
     debug("Parent %s will be %s", $parent, $lang);
     while (my $part = shift(@subdir)) {
         $parent .= "/$part";
         $finallist{$parent}{dir} = 1;
-        $finallist{$parent}{'lang'}{$lang} = 1;
+        $finallist{$parent}{lang}{$lang} = 1;
         debug("Parent %s will be %s", $parent, $lang);
     }
         own_file($file, $lang);
-- 
cgit v1.2.1