diff options
| -rwxr-xr-x | InternetSecure.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index e3855cf..a2c7fab 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -184,6 +184,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; my ($y, $m) = $self->parse_expdate($content{exp_date}); $data{xxxCCYear} = sprintf '%.4u' => $y; |