#!/usr/bin/perl -w

use Inline C;
use Devel::Peek;
sub foo{1;}
*{main::Foo} = \&foo;

print Dump *Foo;
clear_cv(*Foo);
print Dump *Foo;
__END__
__C__

void
clear_cv(SV* gv) {
  if(SvTYPE(gv) == SVt_PVGV) {
      GvCV(gv) = Nullcv;
  }
}