From a8acb88758229305e88fa8cf13bc31dc902719ff Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 3 Aug 2008 00:54:09 +0000
Subject: [PATCH] doh, fix regex

---
 FS/FS/cdr/simple2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cdr/simple2.pm b/FS/FS/cdr/simple2.pm
index a4b5fdb29..2e4fb9098 100644
--- a/FS/FS/cdr/simple2.pm
+++ b/FS/FS/cdr/simple2.pm
@@ -21,7 +21,7 @@ use FS::cdr qw(_cdr_min_parser_maker);
           $date =~ /^(\d\d(\d\d)?)\/(\d{1,2})\/(\d{1,2})$/
             or die "unparsable date: $date"; #maybe we shouldn't die...
           #$cdr->startdate( timelocal(0, 0, 0 ,$3, $2-1, $1) );
-          ($tmp_mday, $tmp_mon, $tmp_year) = ( $3, $2-1, $1 );
+          ($tmp_mday, $tmp_mon, $tmp_year) = ( $4, $3-1, $1 );
         },
 
     #Time
-- 
2.11.0