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 /AuthorizeNet/ARB.pm | |
| parent | f7545ec5b072a46f6d08e4bf19bc5d1edb25ce94 (diff) | |
Silence new warnings about lc(undef) introduced in perl 5.12. Patch from Todd Rinaldo, thanks!
Diffstat (limited to 'AuthorizeNet/ARB.pm')
| -rw-r--r-- | AuthorizeNet/ARB.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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 |