11 lines
404 B
Perl
11 lines
404 B
Perl
--- CCCheck/CCCheck.pm.orig Fri Apr 19 18:59:51 2002
|
|
+++ CCCheck/CCCheck.pm Fri Apr 19 19:02:33 2002
|
|
@@ -834,7 +834,7 @@
|
|
my $iin=substr($card_number, 0, 6);
|
|
|
|
# If we have an exact match, look up the stuff and return it
|
|
- if ($prefixes->{$iin} ne "") {
|
|
+ if ($prefixes->{$iin} && $prefixes->{$iin} ne "") {
|
|
return $iin;
|
|
} else {
|
|
# We'll look for ranges. First of all, try the wide and narrow
|