From 28e65f0715fdca6355d68235bfec5d1d8b1f023b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 23 Oct 2012 23:52:03 +0000 Subject: (parent_to_own) fix indentation --- find-lang.pl | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'find-lang.pl') 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); -- cgit v1.2.1