X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-Skipjack.git;a=blobdiff_plain;f=Skipjack.pm;h=32e68bef8d6e3610c3defda25c5f04cf3d5b2e2b;hp=c0bf8382fa72abeedd1a3b17eb26961211c64583;hb=5c59f720b68d1f01f953b5e1e836b034ce13b5a2;hpb=512974fd3d59690fe5848c5564381d2c8f53f7c1

diff --git a/Skipjack.pm b/Skipjack.pm
index c0bf838..32e68be 100644
--- a/Skipjack.pm
+++ b/Skipjack.pm
@@ -27,7 +27,7 @@ use Business::OnlinePayment::HTTPS;
 use Text::CSV_XS;
 use vars qw( @ISA $VERSION $DEBUG );
 
-$VERSION = "0.2";
+$VERSION = "0.4";
 $DEBUG = 0;
 
 @ISA = qw( Business::OnlinePayment::HTTPS );
@@ -429,12 +429,14 @@ sub parse_SJAPI_TransactionChangeStatusRequest
 
   my @records = split(/\r\n/, $page);
 
-  $csv->parse(shift @records) or die $csv->error;
+  $csv->parse(shift @records)
+    or die "CSV parse failed on " . $csv->error_input;
   @output{@CHANGE_STATUS_RESPONSE} = $csv->fields();
 
   # we only handle a single record reponse, as that's all this module will
   #  currently submit...
-  $csv->parse(shift @records) or die $csv->error;
+  $csv->parse(shift @records)
+    or die "CSV parse failed on " . $csv->error_input;
   @output{@CHANGE_STATUS_RESPONSE_RECORD} = $csv->fields();
 
   return %output;
@@ -451,12 +453,15 @@ sub parse_SJAPI_TransactionStatusRequest
 
   my @records = split(/\r\n/, $page);
 
-  $csv->parse(shift @records) or die $csv->error;
+  #$csv->parse(shift @records)
+  $csv->parse(shift @records)
+    or die "CSV parse failed on " . $csv->error_input;
   @output{@GET_STATUS_RESPONSE} = $csv->fields();
 
   # we only handle a single record reponse, as that's all this module will
   #  currently submit...
-  $csv->parse(shift @records) or die $csv->error;
+  $csv->parse(shift @records)
+    or die "CSV parse failed on " . $csv->error_input;
   @output{@GET_STATUS_RESPONSE_RECORD} = $csv->fields();
 
   return %output;