is($noproto, $noproto_exp, 'no prototype');
sub myit { my $ar = shift; push @$ar, @_; };
is($noproto, $noproto_exp, 'no prototype');
sub myit { my $ar = shift; push @$ar, @_; };
set_prototype \&myit, '\@$_';
my $it = wrap 'main::myit';
my @a = qw<u v w>;
set_prototype \&myit, '\@$_';
my $it = wrap 'main::myit';
my @a = qw<u v w>;