| Subject: | peek_my cannot handle arguments |
The following test is failed.
use strict;
use warnings;
use PadWalker qw/peek_my/;
use Test::More;
sub foo {
${peek_my(1)->{'$x'}} = 'yay';
}
{
my $x;
foo();
is $x, 'yay';
}
{
foo(my $x);
is $x, 'yay';
}
done_testing;