patch from Michael G. Schwern: Eliminate inheriting from AutoLoader. We're not using...

diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm
index 12ae79b..90ba3cd 100644 (file)
--- a/AuthorizeNet.pm
+++ b/AuthorizeNet.pm
@@ -9,7 +9,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
 require Exporter;
 
-@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
+@ISA = qw(Exporter Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
 $VERSION = '3.16';
@@ -143,10 +143,12 @@ sub submit {
 
         push @required_fields, qw(
           amount routing_code account_number account_type bank_name
-          account_name account_type
+          account_name
         );
 
-        if ($self->{_content}->{customer_org} ne '') {
+        if (defined $self->{_content}->{customer_org} and
+            length  $self->{_content}->{customer_org}
+        ) {
           push @required_fields, qw( customer_org customer_ssn );
         } else {
           push @required_fields, qw(license_num license_state license_dob);

diff --git a/Changes b/Changes
index 5bbbdee..ff6bfe4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,11 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
          Method (AIM)"
        - patch to map ship_company properly to x_Ship_To_Company from Mike
          Barry <MBarry@cos.com>
+       From Michael G. Schwern <MSCHWERN@cpan.org>:
+       - Eliminate inheriting from AutoLoader. We're not using it and it just
+          screws up the error messages.
+        - account_type mentioned twice in the required fields for checks.
+        - Quiet an uninit value warning when customer_org is not set.
 
 3.15  Wed Mar 16 01:10:51 PST 2005
        - Ask for ',' delimiter and '"' quote explicitly to prevent problems