diff options
| author | Brian Somers <brian@FreeBSD.org> | 2002-04-19 18:05:49 +0000 |
|---|---|---|
| committer | Brian Somers <brian@FreeBSD.org> | 2002-04-19 18:05:49 +0000 |
| commit | f4ec32a6c5a86604e1301b120da7f0255145a396 (patch) | |
| tree | 3fbe134b55eb61c11dc406831591df10dbeb121e /misc/p5-DataCash | |
| parent | a58ed8c8474137020ff90c7b67efa623db8cffb3 (diff) | |
| download | ports-f4ec32a6c5a86604e1301b120da7f0255145a396.tar.gz ports-f4ec32a6c5a86604e1301b120da7f0255145a396.zip | |
Silence perl -w
Notes
Notes:
svn path=/head/; revision=57890
Diffstat (limited to 'misc/p5-DataCash')
| -rw-r--r-- | misc/p5-DataCash/files/patch-CCCheck::CCCheck.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/misc/p5-DataCash/files/patch-CCCheck::CCCheck.pm b/misc/p5-DataCash/files/patch-CCCheck::CCCheck.pm new file mode 100644 index 000000000000..8b36a756ee32 --- /dev/null +++ b/misc/p5-DataCash/files/patch-CCCheck::CCCheck.pm @@ -0,0 +1,11 @@ +--- 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 |