76: if ($node->{Data})
77: {
78:     die "oops: node Char='$node->{Char}'" if $node->{Char} ne "";
79:     $val = $node->{Data};
80: }