X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/181ce4f5bab35c1f270a192f062cd27cd34060ba..ff37d88c3b2942e7da84d89a7de78956b56f8a67:/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});
     }