From ef8ec3cf6d81861ef30c80cde41b775cc9f96407 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 21 Jan 2002 02:49:49 +0000 Subject: [PATCH] tyop noted by "Arkady V. Izyumov" , thanks! --- CreditCard.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.11.0