Hi All

If I have some Perl code in a variable $code 
and I use and eval($code) to execute the code 
can I do something like

sub x {
my  ( $code
    , $other_stuff
    ) @_ ;

my  %save_sym = %main:: ;

    eval($code) ;

    %main:: = %save_sym ;

}

to remove any symbols created within the code 
from the symbol table? Is this a good practice or 
is there a better way?

Thanks
Bill Conrad

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to