diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:11 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:11 +0000 |
| commit | db85ce94915c8ca0b8898f08ab1f145586bc4a7c (patch) | |
| tree | 73ce99414c7d2b2f4e91bf75be3c2c0798816133 /find-lang.pl | |
| parent | 686d60ad25a8ec7e97057bb705e9b739d5752df2 (diff) | |
| download | rpm-setup-db85ce94915c8ca0b8898f08ab1f145586bc4a7c.tar rpm-setup-db85ce94915c8ca0b8898f08ab1f145586bc4a7c.tar.gz rpm-setup-db85ce94915c8ca0b8898f08ab1f145586bc4a7c.tar.bz2 rpm-setup-db85ce94915c8ca0b8898f08ab1f145586bc4a7c.tar.xz rpm-setup-db85ce94915c8ca0b8898f08ab1f145586bc4a7c.zip | |
simplify using the regexp
Diffstat (limited to 'find-lang.pl')
| -rwxr-xr-x | find-lang.pl | 3 |
1 files changed, 1 insertions, 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; |