From: ivan Date: Mon, 21 Jan 2002 02:49:49 +0000 (+0000) Subject: tyop noted by "Arkady V. Izyumov" , thanks! X-Git-Tag: BUSINESS_CREDITCARD_0_27~1 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-CreditCard.git;a=commitdiff_plain;h=ef8ec3cf6d81861ef30c80cde41b775cc9f96407 tyop noted by "Arkady V. Izyumov" , thanks! --- diff --git a/CreditCard.pm b/CreditCard.pm index d0c5ff8..32c5670 100644 --- a/CreditCard.pm +++ b/CreditCard.pm @@ -102,7 +102,7 @@ sub cardtype { return "VISA card" if $number =~ /^4\d{12}(\d{3})?$/o; return "MasterCard" if $number =~ /^5[1-5]\d{14}$/o; return "Discover card" if $number =~ /^6011\d{12}$/o; - return "American Express card" if $number =~ /^3[47]\d{13}/o; + return "American Express card" if $number =~ /^3[47]\d{13}$/o; return "Diner's Club/Carte Blanche" if $number =~ /^3(0[0-5]|[68]\d)\d{11}$/o; return "enRoute" if $number =~ /^2(014|149)\d{11}$/o;