… | |
… | |
3785 | my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH}; |
3785 | my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH}; |
3786 | for my $name (keys %$leaf_symtab) { |
3786 | for my $name (keys %$leaf_symtab) { |
3787 | _gv_clear *{"$pkg$name"}; |
3787 | _gv_clear *{"$pkg$name"}; |
3788 | # use PApp::Util; PApp::Util::sv_dump *{"$pkg$name"}; |
3788 | # use PApp::Util; PApp::Util::sv_dump *{"$pkg$name"}; |
3789 | } |
3789 | } |
3790 | warn "cleared package $pkg\n";#d# |
|
|
3791 | } |
3790 | } |
3792 | |
3791 | |
3793 | sub do_reload_perl() { |
3792 | sub do_reload_perl() { |
3794 | # can/must only be called in main |
3793 | # can/must only be called in main |
3795 | if ($Coro::current != $Coro::main) { |
3794 | if ($Coro::current != $Coro::main) { |