X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/40d52f5031f6e2344a0e1a8d420b5d22ccca5ea8..e14cb525c640cb15bb6b2dfb62ccebbe78cb45cd:/SL/DATEV/KNEFile.pm diff --git a/SL/DATEV/KNEFile.pm b/SL/DATEV/KNEFile.pm index c5f60ea12..e8ad4748a 100644 --- a/SL/DATEV/KNEFile.pm +++ b/SL/DATEV/KNEFile.pm @@ -1,5 +1,7 @@ package SL::DATEV::KNEFile; +use strict; + sub new { my $type = shift; my $self = {}; @@ -69,6 +71,7 @@ sub format_amount { my $self = shift; my $amount = shift; my $width = shift; + our $stellen; $amount =~ s/-//; my ($places, $decimal_places) = split m/\./, "$amount";