diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:04 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:04 +0000 |
| commit | f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8 (patch) | |
| tree | 0e4fc172d1d99dac880e63b50005eca8c06e305b | |
| parent | 28e65f0715fdca6355d68235bfec5d1d8b1f023b (diff) | |
| download | rpm-setup-f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8.tar rpm-setup-f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8.tar.gz rpm-setup-f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8.tar.bz2 rpm-setup-f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8.tar.xz rpm-setup-f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8.zip | |
use pop with ()
| -rwxr-xr-x | find-lang.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/find-lang.pl b/find-lang.pl index 5f4a84e..6b83eea 100755 --- a/find-lang.pl +++ b/find-lang.pl @@ -138,7 +138,7 @@ sub parent_to_own { debug("Parent %s will be %s", $parent, $lang); } else { my @subdir = grep { $_ } split('/', substr($file, length($parent))); - pop(@subdir); + pop @subdir; $finallist{$parent}{dir} = 1; $finallist{$parent}{lang}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); |