#!/usr/bin/env perl
-# Copyright (c) 2006-2019. The SimGrid Team.
+# Copyright (c) 2006-2020. The SimGrid Team.
# All rights reserved.
# This program is free software; you can redistribute it and/or modify it
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 {