projects
/
Business-OnlinePayment-InternetSecure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9072ab6
)
Expand test numbers to 3-6
author
fbriere
<fbriere>
Fri, 17 Feb 2006 01:07:40 +0000
(
01:07
+0000)
committer
fbriere
<fbriere>
Fri, 17 Feb 2006 01:07:40 +0000
(
01:07
+0000)
InternetSecure.pm
patch
|
blob
|
history
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
591c98d
..
85bb05e
100755
(executable)
--- a/
InternetSecure.pm
+++ b/
InternetSecure.pm
@@
-181,7
+181,7
@@
sub to_xml {
$data{MerchantNumber} = $self->merchant_id;
$data{xxxCard_Number} =~ tr/ //d;
- $data{xxxCard_Number} =~ s/^[
0-36-9
]/4/ if $self->test_transaction;
+ $data{xxxCard_Number} =~ s/^[
^3-6
]/4/ if $self->test_transaction;
my ($y, $m) = $self->parse_expdate($content{exp_date});
$data{xxxCCYear} = sprintf '%.4u' => $y;