projects
/
Business-OnlinePayment-PayflowPro.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d49cf87
)
Fix inadvertant clobbering of zip code, patch from <phil@perkpartners.com>, CPAN...
BUSINESS_ONLINEPAYMENT_PAYFLOWPRO_0_03
author
ivan
<ivan>
Wed, 3 Aug 2005 00:57:06 +0000
(
00:57
+0000)
committer
ivan
<ivan>
Wed, 3 Aug 2005 00:57:06 +0000
(
00:57
+0000)
Changes
patch
|
blob
|
history
PayflowPro.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
c7602a5
..
3cc52ee
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,9
@@
Revision history for Perl extension Business::OnlinePayment::PayflowPro.
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
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
(file)
--- a/
PayflowPro.pm
+++ b/
PayflowPro.pm
@@
-125,7
+125,7
@@
sub submit {
$month = '0'. $month if $month =~ /^\d$/;
}
$month = '0'. $month if $month =~ /^\d$/;
}
-
$zip = $content{'zip'} =~ s/\D//
;
+
( $zip = $content{'zip'} ) =~ s/\D//g
;
#}
#$content{'address'} =~ /^(\S+)\s/;
#}
#$content{'address'} =~ /^(\S+)\s/;