X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4fbf407209cb3b3284a27915c05fcc7f70655088..20d3d2a3e4b3c6f609df3092e109b84e7e709710:/examples/gras/all2all/make_deployment.pl
diff --git a/examples/gras/all2all/make_deployment.pl b/examples/gras/all2all/make_deployment.pl
index 996331363a..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.
@@ -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";