my ($name,$anc,$desc) = cleanup_ctn($1);
# build the tree, checking for name conflict
my ($name,$anc,$desc) = cleanup_ctn($1);
# build the tree, checking for name conflict
if defined ($ancestor{$name}) && $ancestor{$name} ne $anc &&
defined ($desc{$name}) && $desc{$name} ne $desc;
$ancestor{$name}=$anc;
if defined ($ancestor{$name}) && $ancestor{$name} ne $anc &&
defined ($desc{$name}) && $desc{$name} ne $desc;
$ancestor{$name}=$anc;