Help for this page

Select Code to Download

Select or download this

use Devel::Peek;
use B qw( svref_2object SVf_IOK SVf_NOK SVf_POK );
...
my ($iv, $pv) = is_iv($r);
ok($iv, "ivok bind integer") or Dump($r);
ok($pv, "pv not null bind integer") or Dump($r);

Select or download this

not ok 10 - pv not null bind integer
#   Failed test 'pv not null bind integer'
...
  PV = 0xa23fd88 "100"\0         # <--- should this be set?
  CUR = 3
  LEN = 4