I have an example script from B :: OPCheck with changed PL_op_nametopadsv
use B::Generate;
use B::OPCheck padsv => check => sub {
my $op = shift;
print "HERE";
};
my $x;
1;
But callback is not called.
When canceling this program, I see this OP:
$perl -Ilib -Iblib/arch -MO=Terse ~/tmp/xs.pl
LISTOP (0x19828f0) leave [1]
OP (0x1c27ef0) enter
COP (0x1982938) nextstate
OP (0x1982998) padsv [1] <<<< HERE IT IS
COP (0x1c27f38) nextstate
OP (0x1c27f98) null [5]
Why is callback not called?
UPD
It seems here is the answer:
For most (but not all) types of op, after op was originally created and populated by child ops, it will be filtered through the check function referenced by the corresponding element of this array
But where can I find a list of ops that will be filtered through the check function?
source
share