([ 'main', $0, __LINE__-3 ]) x 2,
], 'caller into callback into eval returns the right thing');
-for ([ 'get', '$c', 'sassign' ], [ 'len', '@c', 'padav' ]) {
+for ([ 'get', '$c', [ 'sassign', 'B::BINOP' ] ],
+ [ 'len', '@c', [ 'padav', 'B::OP' ] ]) {
my ($key, $var, $exp) = @$_;
for my $op_info (VMG_OP_INFO_NAME, VMG_OP_INFO_OBJECT, 3) {
my $op = $_[-1];
my $desc = "$key magic with op_info == $op_info";
if ($op_info == 1) {
- is $op, $exp, "$desc gets the right op info";
+ is $op, $exp->[0], "$desc gets the right op info";
} elsif ($op_info == 2) {
- isa_ok $op, 'B::OP', $desc;
- is $op->name, $exp, "$desc gets the right op info";
+ isa_ok $op, $exp->[1], $desc;
+ is $op->name, $exp->[0], "$desc gets the right op info";
} else {
is $op, undef, "$desc gets the right op info";
}