sub foo
{
	Internals::SvREADONLY($_, 0);
	$_ = 'fred';
	goto &bar;
}