From c02626dc119db611003d730452ddb098e502ec18 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 2 Nov 2015 14:58:41 +0100
Subject: [PATCH] DATEV: Dateinamen richtig in EV-Datei schreiben
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Ein foreach über ein Array weist der Iteratorvariablen die Inhalte zu,
nicht die Indizes ins Array. Also die Variable nicht noch mal ans Index
nutzen.

Fun fact: das war mindestens seit dem perltidy-Commit in 2005 kaputt.
---
 SL/DATEV.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index c1c56c55d..88c5fb43f 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -958,7 +958,7 @@ sub kne_buchungsexport {
   print(EV $ev_header);
 
   foreach my $file (@ed_versionset) {
-    print(EV $ed_versionset[$file]);
+    print(EV $file);
   }
   close(EV);
   ###
-- 
2.20.1