Kosmetik: Klammern um Funktionsaufrufe.

diff --git a/SL/Menu.pm b/SL/Menu.pm
index b3ffd0f94e0eb82b216610b206cc6ff101975281..77bc848fd2b8fec7e23385c491ce48c443500ae8 100644 (file)
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -215,7 +215,7 @@ sub access_control {
   my $excl = ();
 
   # remove --AR, --AP from array
   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;
 
 
   map { $excl{$_} = 1 } @a;
 

diff --git a/SL/Num2text.pm b/SL/Num2text.pm
index 7c05ef0151f9abfdb7bdbef6656d2c6372c4c111..f38f10849ad27cd798f1525d35938404f2f917f3 100644 (file)
--- a/SL/Num2text.pm
+++ b/SL/Num2text.pm
@@ -86,16 +86,16 @@ sub num2text {
 
   while (@num) {
     @a = ();
 
   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;
   }
 
   while (@numblock) {
 
     $i   = $#numblock;

-    @num = split //, $numblock[$i];
+    @num = split(//, $numblock[$i]);

 
     if ($numblock[$i] == 0) {
       pop @numblock;
 
     if ($numblock[$i] == 0) {
       pop @numblock;


@@ -105,10 +105,10 @@ sub num2text {
     if ($numblock[$i] > 99) {
 
       # the one from hundreds
     if ($numblock[$i] > 99) {
 
       # the one from hundreds

-      push @textnumber, $self->{numbername}{ $num[0] };
+      push(@textnumber, $self->{numbername}{ $num[0] });

 
       # add hundred designation
 
       # add hundred designation

-      push @textnumber, $self->{numbername}{ 10**2 };
+      push(@textnumber, $self->{numbername}{ 10**2 });

 
       # reduce numblock
       $numblock[$i] -= $num[0] * 100;
 
       # reduce numblock
       $numblock[$i] -= $num[0] * 100;


@@ -120,24 +120,24 @@ sub num2text {
     if ($numblock[$i] > 9) {
 
       # tens
     if ($numblock[$i] > 9) {
 
       # tens

-      push @textnumber, $self->format_ten($numblock[$i]);
+      push(@textnumber, $self->format_ten($numblock[$i]));

     } elsif ($numblock[$i] > 0) {
 
       # ones
     } 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);
     }
 
     # 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 ($self, $amount) = @_;
 
   my $textnumber = "";

-  my @num        = split //, $amount;
+  my @num        = split(//, $amount);

 
   if ($amount > 20) {
     $textnumber = $self->{numbername}{ $num[0] * 10 };
 
   if ($amount > 20) {
     $textnumber = $self->{numbername}{ $num[0] * 10 };