tyop noted by "Arkady V. Izyumov" <izyumov@itp.ac.ru>, thanks!

diff --git a/CreditCard.pm b/CreditCard.pm
index d0c5ff8..32c5670 100644 (file)
--- 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;