From d6ff87233d581c78c382f363fe1efeff5a42c8ce Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 23 Oct 2012 23:52:06 +0000
Subject: use shift without ()

---
 find-lang.pl | 4 ++--
 1 file 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;
-- 
cgit v1.2.1