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);