aboutsummaryrefslogtreecommitdiffstats
path: root/find-lang.pl
diff options
context:
space:
mode:
authorDavid Walser <luigiwalser@mageia.org>2013-04-06 16:17:52 +0000
committerDavid Walser <luigiwalser@mageia.org>2013-04-06 16:17:52 +0000
commit833b45b2de74d6bea30f822668d07f89759581d0 (patch)
tree85e023a16706f7d2589248312db4d4c7e20a19eb /find-lang.pl
parent631d4295cbaf1e48ebd2c06fa68f9068cbc9ad80 (diff)
downloadrpm-setup-833b45b2de74d6bea30f822668d07f89759581d0.tar
rpm-setup-833b45b2de74d6bea30f822668d07f89759581d0.tar.gz
rpm-setup-833b45b2de74d6bea30f822668d07f89759581d0.tar.bz2
rpm-setup-833b45b2de74d6bea30f822668d07f89759581d0.tar.xz
rpm-setup-833b45b2de74d6bea30f822668d07f89759581d0.zip
- properly fix mga #3697 in find-lang.pl (only exclude man directories)1.171
- own man pages that have a dot in their name (find-lang.pl regexp bug)
Diffstat (limited to 'find-lang.pl')
-rwxr-xr-xfind-lang.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/find-lang.pl b/find-lang.pl
index 3b622da..ba35ff9 100755
--- a/find-lang.pl
+++ b/find-lang.pl
@@ -57,11 +57,11 @@ File::Find::find(
return if !$withhtml;
my ($pkg, $lang, $langfile) = ($4, $3, $1);
parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
- } elsif ($file =~ m!^((/+usr/share/man)/([^/@.]+)[^/]*)/man[^/]+/([^/.]+)\.\d[^/]*!) {
+ } elsif ($file =~ m!^((/+usr/share/man)/([^/@.]+)[^/]*)/man[^/]+/([^/]+)\.\d[^/]*!) {
return if !$withman;
my ($pkg, $lang, $langfile) = ($4, $3, $1);
$file =~ s/\.[^\.]+$/.*/;
- parent_to_own($langfile, $file, $lang) if pkg_match($pkg);
+ own_file($file, $lang) if pkg_match($pkg);
} else {
return;
}