sub setVars {
    my($NODE,$vars)= @_;
    putVars($NODE,"vars",$vars);
    updateNode($NODE,-1);
}
# or
sub setVars {
    my($NODE,$vars)= @_;
    $NODE->{vars}= packVars($vars);
    updateNode($NODE,-1);
}