… | |
… | |
334 | sub op_padsv { |
334 | sub op_padsv { |
335 | my $flags = $op->flags; |
335 | my $flags = $op->flags; |
336 | my $padofs = "(PADOFFSET)" . $op->targ; |
336 | my $padofs = "(PADOFFSET)" . $op->targ; |
337 | |
337 | |
338 | #d#TODO: why does our version break |
338 | #d#TODO: why does our version break |
|
|
339 | # breaks gce with can't coerce array.... |
339 | if (($flags & B::OPf_MOD) && ($op->private & B::OPpDEREF)) {#d# |
340 | if (($flags & B::OPf_MOD) && ($op->private & B::OPpDEREF)) {#d# |
340 | return out_linear;#d# |
341 | return out_linear;#d# |
341 | }#d# |
342 | }#d# |
342 | |
343 | |
343 | $source .= <<EOF; |
344 | $source .= <<EOF; |