Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: CPAN Author Struggle: Am I a jerk?

by eric256 (Parson)
on Sep 20, 2007 at 16:25 UTC ( #640177=note: print w/replies, xml ) Need Help??


in reply to CPAN Author Struggle: Am I a jerk? (unter-jerk)

The only part that confused me was

Feel free to re-open this bug if verify() doesn't work with any real-world credit card number or you have a patch. :)

He asked for a patch then rejected it. Either way let it go and figure out a more appropriate module for your need. Lots of modules can be reused for unintended reasons but once its apparent he only wants to handle real cards let it be. Makeing a module better and work right is different from making it work more like you want ;) BTW the following code does what you want and still uses the module so you get any future enhancements. Definitely redundant code in that module for getting the check digit.

sub check_last { my $last_digit = substr($_[0],-1); my $card = substr($_[0],0,-1); return 0+($last_digit == generate_last_digit($card)); }

___________
Eric Hodges

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://640177]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2016-12-06 09:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (101 votes). Check out past polls.