-#!/usr/bin/perl
+#!/usr/bin/env perl
+
+# Copyright (c) 2008, 2010, 2012-2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
use warnings;
display_subtree("XBT_LOG_ROOT_CAT","");
map {
- warn "Category $_ does not seem to be connected. Use XBT_LOG_CONNECT($_).\n";
+ if ($_ ne "mc_main") { # This one is not in libsimgrid
+ 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";