DATEV: Dateinamen richtig in EV-Datei schreiben

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.

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index c1c56c5..88c5fb4 100644 (file)
--- 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);
   ###