Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use Devel::Peek;
...
print Dump($ptrIV);
$ptrUV += 2**31;
print Dump($ptrUV);

Select or download this

SV = IV(0x182a260) at 0x182a264
  REFCNT = 1
...
  REFCNT = 1
  FLAGS = (IOK,pIOK,IsUV)
  UV = 2176029204