Interestingly, the two links give different functions. I suppose the meaning of "current" in the Perl Porter's summary refers to the 5.8 version. If that's the new one, it looks much simpler.

It also mentions 8 buckets. Exactly 8? I thought it used a dynamic number.