Select Code to Download

use constant POS_INF => +(99**99**99);
use constant NEG_INF => -(99**99**99);

>perl -MDevel::Peek -e"Dump +(99**99**99)"
SV = NV(0x1832414) at 0x225334
...
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = -1.#INF

$ perl -MDevel::Peek -e'Dump +(99**99**99)'
SV = NV(0x8165bd0) at 0x8160954
...
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = -inf