[freeside-commits] freeside/FS/FS Record.pm,1.220,1.221

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv30080/FS/FS

Modified Files:
	Record.pm 
Log Message:
Telstra CDR format, #10159

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.220
retrieving revision 1.221
diff -u -w -d -r1.220 -r1.221
--- Record.pm	1 Apr 2011 02:52:11 -0000	1.220
+++ Record.pm	5 Apr 2011 16:38:00 -0000	1.221
@@ -1750,7 +1750,7 @@
 
       eval "use Parse::FixedLength;";
       die $@ if $@;
-      $parser = new Parse::FixedLength $fixedlength_format;
+      $parser = Parse::FixedLength->new($fixedlength_format);
 
     }
     else {
@@ -1855,6 +1855,9 @@
 
     } elsif ( $type eq 'fixedlength' ) {
 
+      last unless scalar(@buffer);
+      $line = shift(@buffer);
+
       @columns = $parser->parse($line);
 
     } elsif ( $type eq 'xls' ) {