Hi. This code woks fine: package Devel::KP; our $VERSION = '0.01'; package # hide the package from the PAUSE indexer DB;
sub sub { goto &$DB::sub; } use Benchmark qw/ cmpthese /; sub DB { } 1; But if I change DB::sub to look like: sub sub { print @_; goto &$DB::sub; } I get segfault