From f8bdbad36ce8ebd93cbf11a5bfc382aef66856b8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 23 Oct 2012 23:52:04 +0000
Subject: use pop with ()

---
 find-lang.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit v1.2.1