Do not use the // operator, so we can support perls before 5.10

Also added test case to cover our home-grown __dor() function.
v0.014

          like 0.013, but with the promised change!