aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xfind-lang.pl22
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);