use strict;

my $lasthash = {
	lastfunc => sub { last ; },
} ;

sub lastfunc {
	last ;
}

sub test {
	# local ($^W) = 1 ; # Activate this line to display the warnings
	while(1) { lastfunc } ;
	while(1) { $lasthash->{lastfunc}->(); } ;
}

test() ;