{ 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 = $@; }