968: sub evalCode {    
 969:     my( $code )= shift @_;
 970:     my( $CURRENTNODE )= shift @_;
 971:     # Note! @_ is left set to remaining arguments!
 
 ...

 985:     my $str = eval $code;       

 ...