{
no strict 'refs';
# We don't want to introduce another scope, as that will
# negate the effect of the local:
NEXT:
my $n = shift @handlers;
local *{$n} = $handler{ $n };
goto NEXT
if @handlers;
$ok = eval $cfg_str;
$err = $@;
}
####
NEXT: {
no strict 'refs';
# We don't want to introduce another scope, as that will
# negate the effect of the local:
my $n = shift @handlers;
local *{$n} = $handler{ $n };
redo NEXT
if @handlers;
$ok = eval $cfg_str;
$err = $@;
}
####
{
no strict 'refs';
# We don't want to introduce another scope, as that will
# negate the effect of the local:
NEXT: {
my $n = shift @handlers;
local *{$n} = $handler{ $n };
redo NEXT
if @handlers;
}
$ok = eval $cfg_str;
$err = $@;
}