X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/b8df87e176f27b25534f27d7e240defa32ca35bc..46461adb2ff0b62c43ba4209da37ac06baa5d8fa:/tools/MSG_visualization/trace2fig.pl

diff --git a/tools/MSG_visualization/trace2fig.pl b/tools/MSG_visualization/trace2fig.pl
index 1e8e9eef27..cbc09d0d06 100755
--- a/tools/MSG_visualization/trace2fig.pl
+++ b/tools/MSG_visualization/trace2fig.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-# Copyright (c) 2006-2019. The SimGrid Team.
+# Copyright (c) 2006-2022. The SimGrid Team.
 # All rights reserved.
 
 # This program is free software; you can redistribute it and/or modify it
@@ -89,7 +89,7 @@ sub read_link {
 	    my($numkey)=hex "$key";
 	    while (defined($link{$numkey}{dst})) {$numkey++;}
 	    $link{$numkey}{dst}=$dst;
-	    $link{$numkey}{dst_date}=$date;	
+	    $link{$numkey}{dst_date}=$date;
 	}
     }
     close INPUT;
@@ -98,16 +98,16 @@ sub read_link {
 
 sub build_cat_tree {
     my($root,$Cat)=@_;
-    my(@childs)=();
+    my(@children)=();
     my($cat);
 
     foreach $cat (keys %$Cat) {
 	if($$Cat{$cat}{father} eq $root) {
-	    push @childs, build_cat_tree($cat,$Cat);
+	    push @children, build_cat_tree($cat,$Cat);
 	}
 #	print "$$Cat{$cat}{name}\t\t $Cat{$cat}{father}\n";
     }
-    return [$root,@childs];
+    return [$root,@children];
 }
 
 sub build_cat_list {
@@ -236,7 +236,7 @@ sub draw_cat {
 
 # LM: I added the next line because of "undefined values"...
 # normally, I think that this should not happen, but this part of code is a bit too cryptic to me
-		next unless (defined($state));		
+		next unless (defined($state));
 
 		my($line) = new XFig ('polyline');
 
@@ -292,7 +292,7 @@ sub draw_cat {
     foreach $cat (keys %$Cat) {
 	next unless (defined($$Cat{$cat}{Y_min_host}) && defined($$Cat{$cat}{Y_max_host}));
 	my($line) = new XFig ('polyline');
-	
+
 	$line->{'depth'} = 150;
 	$line->{'subtype'} = 1;  # line
 	$line->{'points'} = [ [$min_x_for_host, $$Cat{$cat}{Y_min_host}*$grid_Y_size],
@@ -304,7 +304,7 @@ sub draw_cat {
 	$line->{'thickness'} = 0;
 	$index_fill++;
 	$fig->add ($line);
-	
+
 	my($text) = new XFig ('text');
 	$text->{'text'} = "$$Cat{$cat}{name}";
 	$text->{'angle'} = 3.14159265/2;