aboutsummaryrefslogtreecommitdiffstats
path: root/find-lang.pl
diff options
context:
space:
mode:
Diffstat (limited to 'find-lang.pl')
-rwxr-xr-xfind-lang.pl24
1 files changed, 6 insertions, 18 deletions
diff --git a/find-lang.pl b/find-lang.pl
index 995b1d7..4014aa2 100755
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -40,41 +40,29 @@ File::Find::find(
if ($file =~ m!^((.*/share/locale)/([^/@]+)[^/]*).*/([^/]+)\.mo!) {
return if $withoutmo;
my ($pkg, $lang) = ($4, $3);
- if (pkg_match($pkg)) {
- own_file($file, $lang);
- }
+ own_file($file, $lang) if pkg_match($pkg);
} elsif ($file =~ m!^((.*/gnome/help)/([^/]+)/([^/]+))!) {
return if !$withgnome;
my ($pkg, $lang, $langfile) = ($3, $4, $1);
- if (pkg_match($pkg)) {
- parent_to_own($langfile, $file, $lang);
- }
+ parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
} elsif ($file =~ m!^((.*/share/help)/([^/]+)/([^/]+))/([^/]+)!) {
return if !$withhelp;
my ($pkg, $lang, $langfile) = ($4, $3, $1);
- if (pkg_match($pkg)) {
- parent_to_own($langfile, $file, $lang);
- }
+ parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
} elsif ($file =~ m!^((.*/doc/kde)/HTML/([^/@]+)[^/]*)/([^/]+)/!) {
return if !$withkde;
my ($pkg, $lang, $langfile) = ($4, $3, $1);
- if (pkg_match($pkg)) {
- parent_to_own($langfile, $file, $lang);
- }
+ parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
} elsif ($file =~ m!^((.*/doc)/HTML/([^/@]+)[^/]*)/([^/_]+)!) {
return if !$withhtml;
my ($pkg, $lang, $langfile) = ($4, $3, $1);
- if (pkg_match($pkg)) {
- parent_to_own($langfile, $file, $lang);
- }
+ parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
} elsif ($file =~ m!^((/+usr/share/man)/([^/@.]+)[^/]*)/man[^/]+/([^/.]+)\.\d[^/]*!) {
return if !$withman;
my ($pkg, $lang, $langfile) = ($4, $3, $1);
$file =~ s/\.[^\.]+$//;
$file .= '.*';
- if (pkg_match($pkg)) {
- parent_to_own($langfile, $file, $lang);
- }
+ parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
} else {
return;
}