diff options
| -rw-r--r-- | Changes | 4 | ||||
| -rw-r--r-- | PayflowPro.pm | 2 |
2 files changed, 5 insertions, 1 deletions
@@ -1,5 +1,9 @@ Revision history for Perl extension Business::OnlinePayment::PayflowPro. +0.03 Tue Aug 2 17:56:11 PDT 2005 + - Fix inadvertant clobbering of zip code, patch from + <phil@perkpartners.com>, CPAN bug #13896 + 0.02 Thu Oct 7 15:58:44 PDT 2004 - sponsored by Pro Softnet Corp. / ibackup.com: - cvv2 support diff --git a/PayflowPro.pm b/PayflowPro.pm index 86a43a0..0051fb9 100644 --- a/PayflowPro.pm +++ b/PayflowPro.pm @@ -125,7 +125,7 @@ sub submit { $month = '0'. $month if $month =~ /^\d$/; } - $zip = $content{'zip'} =~ s/\D//; + ( $zip = $content{'zip'} ) =~ s/\D//g; #} #$content{'address'} =~ /^(\S+)\s/; |