-sub check_connection {
- my $name=shift;
-
- foreach my $cat (grep {$ancestor{$_} eq $name} sort keys %ancestor) {
- unless ($ancestor{$cat} eq "XBT_LOG_ROOT_CAT" || (defined($c_ancestor{$cat}) && $c_ancestor{$cat} eq $name)) {
- warn "Category $cat will be disconnected under windows. Add the following to an initialization function:\n XBT_LOG_CONNECT($cat, $ancestor{$cat});\n";
- } else {
- warn "Correctly connected, even under windows: Category $cat.\n" if $debug;
- }
- check_connection($cat);
- }
-}
-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;
+map {
+ warn "Category $_ does not seem to be connected. Use XBT_LOG_CONNECT($_).\n";
+} grep {!defined $connected{$_}} sort keys %ancestor;
+map {
+ warn "Category $_ does not seem to be connected to the root (anc=$ancestor{$_})\n";
+} grep {!defined $used{$_}} sort keys %ancestor;