projects
/
Business-CreditCard.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
201e251
)
tyop noted by "Arkady V. Izyumov" <izyumov@itp.ac.ru>, thanks!
author
ivan
<ivan>
Mon, 21 Jan 2002 02:49:49 +0000
(
02:49
+0000)
committer
ivan
<ivan>
Mon, 21 Jan 2002 02:49:49 +0000
(
02:49
+0000)
CreditCard.pm
patch
|
blob
|
history
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 "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;
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;