diff options
| -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; |