use strict;
use warnings;

my $bar = 1;
my $barref = \*bar;
*$barref = sub { "bar" };
print &{ *$barref }(), $/;
print ${ *$barref },   $/;  # XXX undefined, should be 1.

print *$barref{CODE}->(),  $/;
print ${*$barref{SCALAR}}, $/;  # XXX undefined, should be 1.