Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: CPAN Author Struggle: Am I a jerk?

by eric256 (Parson)
on Sep 20, 2007 at 16:25 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://640177]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2024-04-20 04:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found