From cd1ec53835a1b076d30f0847d2944e445e994e64 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 2 Nov 2015 14:59:34 +0100
Subject: [PATCH] =?utf8?q?DATEV:=20Falsche=20Variable=20f=C3=BCr=20Nachkom?=
 =?utf8?q?mastellen=20gefixt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Fun fact: das war seit Refactoring in 2008-12-15 kaputt (Commit
40d52f50).
---
 SL/DATEV/KNEFile.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/SL/DATEV/KNEFile.pm b/SL/DATEV/KNEFile.pm
index e8ad4748a..9816ac0b7 100644
--- a/SL/DATEV/KNEFile.pm
+++ b/SL/DATEV/KNEFile.pm
@@ -71,7 +71,6 @@ sub format_amount {
   my $self   = shift;
   my $amount = shift;
   my $width  = shift;
-  our $stellen;
 
   $amount =~ s/-//;
   my ($places, $decimal_places) = split m/\./, "$amount";
@@ -81,7 +80,7 @@ sub format_amount {
 
   if (0 < $width) {
     $width  -= 2;
-    $places  = sprintf("\%0${stellen}d", $places);
+    $places  = sprintf("\%0${width}d", $places);
   }
 
   $decimal_places .= '0' if (2 > length $decimal_places);
-- 
2.20.1