diff options
Diffstat (limited to 'find-lang.pl')
| -rwxr-xr-x | find-lang.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/find-lang.pl b/find-lang.pl index 571ab1c..5f4a84e 100755 --- a/find-lang.pl +++ b/find-lang.pl @@ -137,17 +137,17 @@ sub parent_to_own { $finallist{$parent}{lang}{$lang} = 1; debug("Parent %s will be %s", $parent, $lang); } else { - my @subdir = grep { $_ } split('/', substr($file, length($parent))); - pop(@subdir); - $finallist{$parent}{dir} = 1; - $finallist{$parent}{lang}{$lang} = 1; - debug("Parent %s will be %s", $parent, $lang); - while (my $part = shift(@subdir)) { - $parent .= "/$part"; - $finallist{$parent}{dir} = 1; - $finallist{$parent}{lang}{$lang} = 1; - debug("Parent %s will be %s", $parent, $lang); - } + my @subdir = grep { $_ } split('/', substr($file, length($parent))); + pop(@subdir); + $finallist{$parent}{dir} = 1; + $finallist{$parent}{lang}{$lang} = 1; + debug("Parent %s will be %s", $parent, $lang); + while (my $part = shift(@subdir)) { + $parent .= "/$part"; + $finallist{$parent}{dir} = 1; + $finallist{$parent}{lang}{$lang} = 1; + debug("Parent %s will be %s", $parent, $lang); + } own_file($file, $lang); debug("Parent %s will be %s", $file, $lang); |