diff options
author | David Walser <luigiwalser@mageia.org> | 2013-04-06 16:17:52 +0000 |
---|---|---|
committer | David Walser <luigiwalser@mageia.org> | 2013-04-06 16:17:52 +0000 |
commit | 833b45b2de74d6bea30f822668d07f89759581d0 (patch) | |
tree | 85e023a16706f7d2589248312db4d4c7e20a19eb /find-lang.pl | |
parent | 631d4295cbaf1e48ebd2c06fa68f9068cbc9ad80 (diff) | |
download | rpm-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-x | find-lang.pl | 4 |
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; } |