[perl #58916] [BUG] Handling lexpads are broken (once again)

[Patrick R. Michaud via RT]

Now fixed in r33193:

$ cat 58916
my @reftypes = ();
sub foo($a) {
    push @reftypes, $a;
    $a;
};

sub bar($s) {
    $s('a');
}

sub baz {
    foo('c');
}

bar(&foo);
say [EMAIL PROTECTED]; # output 0 instead of 1
foo('b');
say [EMAIL PROTECTED]; # output 1 as expected after first "failure"
bar(&foo);
say [EMAIL PROTECTED]; # output 2!!!

$ ./parrot perl6.pbc 58916
1
2
3
$