# from Symbol.pm
    # free all the symbols in the package

    my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH};
    foreach my $name (keys %$leaf_symtab) {
        undef *{$pkg . $name};
    }

##</code><code>##

    # delete the symbol table

    %$leaf_symtab = ();
    delete $stem_symtab->{$leaf};