From: fbriere <fbriere>
Date: Fri, 17 Feb 2006 01:07:40 +0000 (+0000)
Subject: Expand test numbers to 3-6
X-Git-Tag: V0_01~27
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-InternetSecure.git;a=commitdiff_plain;h=009f4489b1400b4990a69464cf580678552cd818

Expand test numbers to 3-6
---

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;