aboutsummaryrefslogtreecommitdiffstats
path: root/find-lang.pl
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-10-23 23:52:06 +0000
committerThierry Vignaud <tv@mageia.org>2012-10-23 23:52:06 +0000
commitd6ff87233d581c78c382f363fe1efeff5a42c8ce (patch)
tree4d68f637619dcb5923073110c2197fef43c12ffb /find-lang.pl
parentf8bdbad36ce8ebd93cbf11a5bfc382aef66856b8 (diff)
downloadrpm-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-xfind-lang.pl4
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;