From 386994b1990197a2486548ff1c77295f4e5b24cf Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 11 Jan 2007 15:07:36 +0000
Subject: [PATCH] =?utf8?q?Syntaxhighlighting=20f=C3=BCr=20Emacs=20erleicht?=
 =?utf8?q?ert.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/DATEV.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index e0a0435eb..3a7bbc15e 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -391,7 +391,7 @@ sub make_kne_data_header {
   $to   =~ s/ //g;
 
   if ($from ne "") {
-    my ($fday, $fmonth, $fyear) = split /\./, $from;
+    my ($fday, $fmonth, $fyear) = split(/\./, $from);
     if (length($fmonth) < 2) {
       $fmonth = "0" . $fmonth;
     }
@@ -406,7 +406,7 @@ sub make_kne_data_header {
   $header .= $from;
 
   if ($to ne "") {
-    my ($tday, $tmonth, $tyear) = split /\./, $to;
+    my ($tday, $tmonth, $tyear) = split(/\./, $to);
     if (length($tmonth) < 2) {
       $tmonth = "0" . $tmonth;
     }
@@ -470,7 +470,7 @@ sub datetofour {
 
   my ($date, $six) = @_;
 
-  ($day, $month, $year) = split /\./, $date;
+  ($day, $month, $year) = split(/\./, $date);
 
   if ($day =~ /^0/) {
     $day = substr($day, 1, 1);
@@ -499,7 +499,7 @@ sub formatumsatz {
   my ($umsatz, $stellen) = @_;
 
   $umsatz =~ s/-//;
-  ($vorkomma, $nachkomma) = split /\./, $umsatz;
+  ($vorkomma, $nachkomma) = split(/\./, $umsatz);
   $umsatz = "";
   if ($stellen > 0) {
     for ($i = $stellen; $i >= $stellen + 2 - length($vorkomma); $i--) {
-- 
2.20.1