X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FNum2text.pm;h=2b2c51a8734c0114025daea573d515fd4b99c3fd;hb=f4da9593b8f91ae5d57437ed124f9c9d859bc698;hp=7c05ef0151f9abfdb7bdbef6656d2c6372c4c111;hpb=ee072e4f077213bf6f8792ca8f0a1afebbb6282f;p=kivitendo-erp.git

diff --git a/SL/Num2text.pm b/SL/Num2text.pm
index 7c05ef015..2b2c51a87 100644
--- a/SL/Num2text.pm
+++ b/SL/Num2text.pm
@@ -25,13 +25,16 @@
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
 #=====================================================================
 #
 # this is the default code for the Check package
 #
 #=====================================================================
 
+use strict;
+
 sub init {
   my $self = shift;
 
@@ -86,16 +89,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 +108,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 +123,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};
+      my $num = 10**($i * 3);
+      push(@textnumber, $self->{numbername}{$num});
     }
 
-    pop @numblock;
+    pop(@numblock);
 
   }
 
-  join ' ', @textnumber;
+  join(' ', @textnumber);
 
 }
 
@@ -145,7 +148,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 };