From: Moritz Bunkus Date: Tue, 20 Mar 2007 09:40:42 +0000 (+0000) Subject: Kosmetik: Klammern um Funktionsaufrufe. X-Git-Tag: release-2.4.3^2~600 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=181ce4f5bab35c1f270a192f062cd27cd34060ba;p=kivitendo-erp.git Kosmetik: Klammern um Funktionsaufrufe. --- diff --git a/SL/Menu.pm b/SL/Menu.pm index b3ffd0f94..77bc848fd 100644 --- a/SL/Menu.pm +++ b/SL/Menu.pm @@ -215,7 +215,7 @@ sub access_control { my $excl = (); # remove --AR, --AP from array - grep { ($a, $b) = split /--/; s/--$a$//; } @a; + grep { ($a, $b) = split(/--/); s/--$a$//; } @a; map { $excl{$_} = 1 } @a; diff --git a/SL/Num2text.pm b/SL/Num2text.pm index 7c05ef015..f38f10849 100644 --- a/SL/Num2text.pm +++ b/SL/Num2text.pm @@ -86,16 +86,16 @@ sub num2text { while (@num) { @a = (); - for (1 .. 3) { - push @a, shift @num; + for (1..3) { + push(@a, shift(@num)); } - push @numblock, join / /, reverse @a; + push(@numblock, join(" ", reverse @a)); } while (@numblock) { $i = $#numblock; - @num = split //, $numblock[$i]; + @num = split(//, $numblock[$i]); if ($numblock[$i] == 0) { pop @numblock; @@ -105,10 +105,10 @@ sub num2text { if ($numblock[$i] > 99) { # the one from hundreds - push @textnumber, $self->{numbername}{ $num[0] }; + push(@textnumber, $self->{numbername}{ $num[0] }); # add hundred designation - push @textnumber, $self->{numbername}{ 10**2 }; + push(@textnumber, $self->{numbername}{ 10**2 }); # reduce numblock $numblock[$i] -= $num[0] * 100; @@ -120,24 +120,24 @@ sub num2text { if ($numblock[$i] > 9) { # tens - push @textnumber, $self->format_ten($numblock[$i]); + push(@textnumber, $self->format_ten($numblock[$i])); } elsif ($numblock[$i] > 0) { # ones - push @textnumber, $self->{numbername}{ $numblock[$i] }; + push(@textnumber, $self->{numbername}{ $numblock[$i] }); } # add thousand, million if ($i) { $num = 10**($i * 3); - push @textnumber, $self->{numbername}{$num}; + push(@textnumber, $self->{numbername}{$num}); } - pop @numblock; + pop(@numblock); } - join ' ', @textnumber; + join(' ', @textnumber); } @@ -145,7 +145,7 @@ sub format_ten { my ($self, $amount) = @_; my $textnumber = ""; - my @num = split //, $amount; + my @num = split(//, $amount); if ($amount > 20) { $textnumber = $self->{numbername}{ $num[0] * 10 };