Segmentation fault under -d flag

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