diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-10-23 23:52:03 +0000 |
| commit | 28e65f0715fdca6355d68235bfec5d1d8b1f023b (patch) | |
| tree | 9fbb315100e5f6d93a87619fc3064eb8e60b5674 /find-lang.pl | |
| parent | 6ab9025d629be79dd244742e01d2e5074940c630 (diff) | |
| download | rpm-setup-28e65f0715fdca6355d68235bfec5d1d8b1f023b.tar rpm-setup-28e65f0715fdca6355d68235bfec5d1d8b1f023b.tar.gz rpm-setup-28e65f0715fdca6355d68235bfec5d1d8b1f023b.tar.bz2 rpm-setup-28e65f0715fdca6355d68235bfec5d1d8b1f023b.tar.xz rpm-setup-28e65f0715fdca6355d68235bfec5d1d8b1f023b.zip | |
(parent_to_own) fix indentation
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); |