Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re^2: CPAN Author Struggle: Am I a jerk? (unter-jerk)

by UnderMine (Friar)
on Sep 24, 2007 at 18:48 UTC ( #640775=note: print w/ replies, xml ) Need Help??

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

Create a patch set and backward compatability are the two major things I would advise.

If your version is radically different from the current version of the module the likely hood of getting a feature included is minimal. If the current fuctionality is just plain wrong thats a bug and can be explained as such.

If you need behavior that is different from the current module then provide a way of switching it on and off. The default should be off for compatibility but with time this may change.

Provide a patch set against a specified version of the module. This allows the maintainer to easily evaluate what you have done and how it effects everything else. Including it in a open location, developer mailing list etc will allow other people to evaluate your changes and make suggestions even if the change isn't accepted.

Take the GP example. This was just a straight bug report not a bug fix. These will often get rejected as being irritations unless they are genuine issues in the majority case.

My personal opinion is the likely hood of the request being dealt with would have been better if a patch like the below snipet had been included.

Hope it help


On a train in the middle of nowhere

sub validate { - my ($number) = @_; + my ($number, $param) = @_; my ($i, $sum, $weight); return 0 if $number =~ /[^\d\s]/; $number =~ s/\D//g; return 0 unless length($number) >= 9 && 0+$number; + return 0 unless length($number) >= 13 && !(defined $par am->{ISOs +trict} && $param->{ISOstrict}); for ($i = 0; $i < length($number) - 1; $i++) { $weight = substr($number, -1 * ($i + 2), 1) * (2 - ($i % 2)); $sum += (($weight < 10) ? $weight : ($weight - 9)); } return 1 if substr($number, -1) == (10 - $sum % 10) % 10; return 0; }

Note: code unchecked

Comment on Re^2: CPAN Author Struggle: Am I a jerk? (unter-jerk)
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://640775]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2016-05-06 04:28 GMT
Find Nodes?
    Voting Booth?