Re^4: Any reason NV is not marked as POK when accessed as string?

in reply to Re^3: Any reason NV is not marked as POK when accessed as string?
in thread Any reason NV is not marked as POK when accessed as string?

It is not very consistent. Consider:

$ perl -MDevel::Peek -e'$x="1e1"; 0+$x; Dump($x)'
SV = PVNV(0xc27550) at 0xc48bc8
  REFCNT = 1
  FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK)
  IV = 10
  NV = 10
  PV = 0xc37d80 "1e1"\0
  CUR = 3
  LEN = 16
$perl -MDevel::Peek -e'$x="1.1e1"; 0+$x; Dump($x)'
SV = PVNV(0x1513550) at 0x1534bc8
  REFCNT = 1
  FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK)
  IV = 11
  NV = 11
  PV = 0x1523d80 "1.1e1"\0
  CUR = 5
  LEN = 16
[download]

Something smells here. I think that patch needs to be reviewed and supplanted.

---
$world=~s/war/peace/g

Comment on Re^4: Any reason NV is not marked as POK when accessed as string? Download Code

In Section Seekers of Perl Wisdom