diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:06 +0000 |
| commit | d6ff87233d581c78c382f363fe1efeff5a42c8ce (patch) | |
| tree | 4d68f637619dcb5923073110c2197fef43c12ffb /find-lang.pl | |
| parent | f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8 (diff) | |
| download | rpm-setup-d6ff87233d581c78c382f363fe1efeff5a42c8ce.tar rpm-setup-d6ff87233d581c78c382f363fe1efeff5a42c8ce.tar.gz rpm-setup-d6ff87233d581c78c382f363fe1efeff5a42c8ce.tar.bz2 rpm-setup-d6ff87233d581c78c382f363fe1efeff5a42c8ce.tar.xz rpm-setup-d6ff87233d581c78c382f363fe1efeff5a42c8ce.zip | |
use shift without ()
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 6b83eea..5b0065c 100755 --- a/find-lang.pl +++ b/find-lang.pl @@ -133,7 +133,7 @@ sub parent_to_own { debug("parent_to_own: $parent, $file, $lang"); if ($allname) { #my @subdir = grep { $_ } split('/', substr($file, length($parent))); - #$parent .= '/' . shift(@subdir); + #$parent .= '/' . shift @subdir; $finallist{$parent}{lang}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); } else { @@ -142,7 +142,7 @@ sub parent_to_own { $finallist{$parent}{dir} = 1; $finallist{$parent}{lang}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); - while (my $part = shift(@subdir)) { + while (my $part = shift @subdir) { $parent .= "/$part"; $finallist{$parent}{dir} = 1; $finallist{$parent}{lang}{$lang} = 1; |