X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/21466415aa95704f2c9a9b5a87cb7646bef177b6..94446121333b0ae1ae6eea3c32124fd4b3df62f2:/examples/gras/all2all/make_deployment.pl
diff --git a/examples/gras/all2all/make_deployment.pl b/examples/gras/all2all/make_deployment.pl
index 6b4e2e3154..1e4bf687a5 100755
--- a/examples/gras/all2all/make_deployment.pl
+++ b/examples/gras/all2all/make_deployment.pl
@@ -4,14 +4,16 @@ use strict;
sub usage {
print STDERR <\n";
#
# and now, really generate the file. Receiver first.
print "\n";
print "\n";
-print "\n\n";
+print "\n\n";
# reset iterators
$it_port=4000;
@@ -67,7 +71,7 @@ $it_host=0;
for (my $i=0; $i<$nb_hosts; $i++) {
print " \n";
- print " \n";
+ print " \n";
print " \n\n";
$it_host ++;
@@ -85,7 +89,7 @@ $it_port=4000;
$it_host=0;
for (my $i=0; $i<$nb_hosts; $i++) {
- if (undef($source) || $source == $i) {
+ if (!length($source) || $source == $i) {
print " \n";
print $receivers;
print " \n";
@@ -99,3 +103,5 @@ for (my $i=0; $i<$nb_hosts; $i++) {
}
print "\n";
+
+# print "source='$source' nb_hosts=$nb_hosts\n";