X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/181ce4f5bab35c1f270a192f062cd27cd34060ba..76a25c8c3358c474c68fa3dbb777c51479c8e496:/SL/Num2text.pm

diff --git a/SL/Num2text.pm b/SL/Num2text.pm
index f38f10849..15575c356 100644
--- a/SL/Num2text.pm
+++ b/SL/Num2text.pm
@@ -32,6 +32,8 @@
 #
 #=====================================================================
 
+use strict;
+
 sub init {
   my $self = shift;
 
@@ -129,7 +131,7 @@ sub num2text {
 
     # add thousand, million
     if ($i) {
-      $num = 10**($i * 3);
+      my $num = 10**($i * 3);
       push(@textnumber, $self->{numbername}{$num});
     }