X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FNum2text.pm;h=2b2c51a8734c0114025daea573d515fd4b99c3fd;hb=d21bdcaf73d55909d130fbbe26137fd45114adde;hp=f38f10849ad27cd798f1525d35938404f2f917f3;hpb=181ce4f5bab35c1f270a192f062cd27cd34060ba;p=kivitendo-erp.git

diff --git a/SL/Num2text.pm b/SL/Num2text.pm
index f38f10849..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;
 
@@ -129,7 +132,7 @@ sub num2text {
 
     # add thousand, million
     if ($i) {
-      $num = 10**($i * 3);
+      my $num = 10**($i * 3);
       push(@textnumber, $self->{numbername}{$num});
     }