60         if ($$fullname) {
     61             my $tmp; # argh, no such thing as an anonymous scalar
     62             *{$fullname} = \$tmp;
     63             undef $$fullname;
     64         }
     65         if (defined &$fullname) {
     66             no warnings;
     67             local $^W = 0;
     68             if (defined(my $p = prototype $fullname)) {
     69                 *{$fullname} = eval "sub ($p) {}";
     70             }