From fc86c68c3af2bc3e5fcf870f3fc026e0b6069f93 Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Wed, 11 Apr 2007 20:38:32 +0000
Subject: [PATCH] $csv->error is not a method.

---
 Skipjack.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/Skipjack.pm b/Skipjack.pm
index c0bf838..5c6565e 100644
--- a/Skipjack.pm
+++ b/Skipjack.pm
@@ -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;
-- 
2.11.0