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;
}
check_connection("XBT_LOG_ROOT_CAT");
map {warn "Category $_ does not seem to be connected to the root (anc=$ancestor{$_})\n";} grep {!defined $used{$_}} sort keys %ancestor;
}
check_connection("XBT_LOG_ROOT_CAT");
map {warn "Category $_ does not seem to be connected to the root (anc=$ancestor{$_})\n";} grep {!defined $used{$_}} sort keys %ancestor;