Select Code to Download

D:\>perl -MDevel::Peek -le "$x = (2 ** 53) - 1; Dump $x; $x++; Dump $x
+; $x++; Dump $x; $x++; Dump $x;"
SV = NV(0x28e88c5a2f8) at 0x28e88c5a310
...
  IV = 9007199254740994
  NV = 9007199254740991
  PV = 0

D:\>perl -MMath::BigInt -le "$x = Math::BigInt->new(2.3); print $x; pr
+int ref($x);"
NaN
...
D:\>perl -MMath::BigInt -le "$x = Math::BigInt->new(1) / 0; print $x; 
+print ref($x);"
inf
Math::BigInt

D:\>perl -MMath::BigInt -le "$x = Math::BigInt->new(1) / inf; print $x
+; print ref($x);"
0
...
D:\>perl -MMath::BigInt -le "$x = Math::BigInt->new(1) / -inf; print $
+x; print ref($x);"
-1
Math::BigInt