more encapsulation
s/long double/double/

- doesn't work on strawberry perl before 5.20
- not used in perl anyway, NVs are doubles.