# Boot the gateway
# die("No boot command") if ($#ARGV eq -1);
my $bootcmd = scalar @ARGV ? "'".join("' '", @ARGV)."'" : "$FindBin::Bin/boot";
-$exp = Expect->spawn($bootcmd);
+$exp = Expect->spawn($bootcmd) or die "Cannot spawn $bootcmd: $!";
$exp->expect(120,
'Welcome to Buildroot',
'UGW started',
'-re', 't...a...s...k...s... ...s...t...a...r...t...e...d') # RTEMS has bug - it sends 4 characters instead of just one
- or die "Cannot spawn $bootcmd: $!";
+ or die("Boot failed");
# Measure latencies
my $latester=<<'EOF';