X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=AuthorizeNet.pm;h=c48808e943c820c22e01f5273ce6f48d17c8c73a;hb=7faca106dd4192ecd906949e9a4aca08b582d04b;hp=80fcbbbc9a86d3a50e0de0cd6cfab350492535db;hpb=a906edd8acfc363934aecc7b035e92aad117f602;p=Business-OnlinePayment-AuthorizeNet.git

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 80fcbbb..c48808e 100644
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -1,11 +1,11 @@
 package Business::OnlinePayment::AuthorizeNet;
 
-# $Id: AuthorizeNet.pm,v 1.1 2001-09-01 21:47:31 ivan Exp $
+# $Id: AuthorizeNet.pm,v 1.3 2002-02-12 23:27:38 ivan Exp $
 
 use strict;
 use Business::OnlinePayment;
 use Net::SSLeay qw/make_form post_https/;
-use Text::CSV;
+use Text::CSV_XS;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
 require Exporter;
@@ -13,7 +13,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '3.00';
+$VERSION = '3.01';
 
 sub set_defaults {
     my $self = shift;
@@ -132,7 +132,7 @@ sub submit {
     my $t = $self->path();
     my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd);
 
-    my $csv = new Text::CSV();
+    my $csv = new Text::CSV_XS();
     $csv->parse($page);
     my @col = $csv->fields();