From b0d0cf25fd215085158bc2a414030f0b4a917aca Mon Sep 17 00:00:00 2001
From: Arnaud Giersch <arnaud.giersch@univ-fcomte.fr>
Date: Mon, 23 Apr 2018 10:05:18 +0200
Subject: [PATCH] Print debug messages on stderr.

---
 tools/doxygen/xbt_log_extract_hierarchy.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/doxygen/xbt_log_extract_hierarchy.pl b/tools/doxygen/xbt_log_extract_hierarchy.pl
index baa3b8d352..8370735d8b 100755
--- a/tools/doxygen/xbt_log_extract_hierarchy.pl
+++ b/tools/doxygen/xbt_log_extract_hierarchy.pl
@@ -27,7 +27,7 @@ sub cleanup_ctn {
     my $ctn = shift;        # cleanup the content of a macro call
     $ctn =~ s/^\s*(.*)\s*$/$1/gs;
     my @elms;
-    print "ctn=$ctn\n" if $debug > 1;
+    print STDERR "ctn=$ctn\n" if $debug > 1;
     if ($ctn =~ m/^(\w+)\s*,\s*(\w+)\s*,\s*"?([^"]*)"?$/s) {
 	# Perfect, we got 0->name; 1->anc; 2->desc
 	$elms[0] = $1;
@@ -50,7 +50,7 @@ sub parse_file {
 
     my $data = "";
 
-    print "Parse $filename\n" if $debug;
+    print STDERR "Parse $filename\n" if $debug;
     open IN, "$filename" || die "Cannot read $filename: $!\n";
     while (<IN>) {
 	$data .= $_;
@@ -72,7 +72,7 @@ sub parse_file {
        $ancestor{$name}=$anc;
        $desc{$name}=$desc;
 
-       print " $name -> $anc\n" if $debug;
+       print STDERR " $name -> $anc\n" if $debug;
    }
 }
 # Retrieve all the file names, and add their content to $data
-- 
2.20.1