diff options
| author | ivan <ivan> | 2010-12-28 00:35:45 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-12-28 00:35:45 +0000 |
| commit | 8946b6f68bce2003d760233a3ed0721287dfcb86 (patch) | |
| tree | c7800e3a7869f3600149c67d2b903d1b6a353af8 | |
| parent | f7545ec5b072a46f6d08e4bf19bc5d1edb25ce94 (diff) | |
Silence new warnings about lc(undef) introduced in perl 5.12. Patch from Todd Rinaldo, thanks!
| -rw-r--r-- | AuthorizeNet/AIM.pm | 6 | ||||
| -rw-r--r-- | AuthorizeNet/ARB.pm | 6 | ||||
| -rw-r--r-- | Changes | 2 |
3 files changed, 8 insertions, 6 deletions
diff --git a/AuthorizeNet/AIM.pm b/AuthorizeNet/AIM.pm index 0039502..ed996a3 100644 --- a/AuthorizeNet/AIM.pm +++ b/AuthorizeNet/AIM.pm @@ -35,7 +35,7 @@ sub map_fields { 'post authorization' => 'PRIOR_AUTH_CAPTURE', 'void' => 'VOID', ); - $content{'action'} = $actions{lc($content{'action'})} || $content{'action'}; + $content{'action'} = $actions{lc($content{'action'} || '')} || $content{'action'}; # TYPE MAP my %types = ('visa' => 'CC', @@ -44,7 +44,7 @@ sub map_fields { 'discover' => 'CC', 'check' => 'ECHECK', ); - $content{'type'} = $types{lc($content{'type'})} || $content{'type'}; + $content{'type'} = $types{lc($content{'type'} || '')} || $content{'type'}; $self->transaction_type($content{'type'}); # ACCOUNT TYPE MAP @@ -53,7 +53,7 @@ sub map_fields { 'business checking' => 'CHECKING', 'business savings' => 'SAVINGS', ); - $content{'account_type'} = $account_types{lc($content{'account_type'})} + $content{'account_type'} = $account_types{lc($content{'account_type'} || '')} || $content{'account_type'}; if (length $content{'password'} == 15) { diff --git a/AuthorizeNet/ARB.pm b/AuthorizeNet/ARB.pm index 294114b..cc8289b 100644 --- a/AuthorizeNet/ARB.pm +++ b/AuthorizeNet/ARB.pm @@ -39,7 +39,7 @@ sub map_fields { 'cancel recurring authorization' => 'ARBCancelSubscriptionRequest', ); - $content{'action'} = $actions{lc($content{'action'})} || $content{'action'}; + $content{'action'} = $actions{lc($content{'action'} || '')} || $content{'action'}; # TYPE MAP my %types = ('visa' => 'CC', @@ -48,7 +48,7 @@ sub map_fields { 'discover' => 'CC', 'check' => 'ECHECK', ); - $content{'type'} = $types{lc($content{'type'})} || $content{'type'}; + $content{'type'} = $types{lc($content{'type'} || '')} || $content{'type'}; $self->transaction_type($content{'type'}); # ACCOUNT TYPE MAP @@ -57,7 +57,7 @@ sub map_fields { 'business checking' => 'businessChecking', 'business savings' => 'savings', ); - $content{'account_type'} = $account_types{lc($content{'account_type'})} + $content{'account_type'} = $account_types{lc($content{'account_type'} || '')} || $content{'account_type'}; # MASSAGE EXPIRATION @@ -7,6 +7,8 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. Thomas Sibley and, using it, provide more descriptive error messages. - Switch to Business::OnlinePayment::HTTPS instead of using Net::SSLeay directly + - Silence new warnings about lc(undef) introduced in perl 5.12. Patch + from Todd Rinaldo, thanks! 3.21 Tue Nov 24 10:45:21 PST 2009 - Add repository, contributing and contirbutor information to the docs. |