diff options
| author | fbriere <fbriere> | 2006-02-17 01:07:40 +0000 |
|---|---|---|
| committer | fbriere <fbriere> | 2006-02-17 01:07:40 +0000 |
| commit | 009f4489b1400b4990a69464cf580678552cd818 (patch) | |
| tree | 3a8cad71ae7f5e957ef40bf8077eb3042bdc5091 /InternetSecure.pm | |
| parent | 9072ab6533db9ea98aa49420770b8091c0ef9b57 (diff) | |
Expand test numbers to 3-6
Diffstat (limited to 'InternetSecure.pm')
| -rwxr-xr-x | InternetSecure.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 591c98d..85bb05e 100755 --- 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; |