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