-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);
+map {
+ if ($_ ne "mc_main") { # This one is not in libsimgrid
+ warn "Category $_ does not seem to be connected. Use XBT_LOG_CONNECT($_).\n";