or die("Boot failed");
# Measure latencies
-my $latester=<<'EOF';
+my $latester = '
set -e
-rm -f tmp-stat.txt
echo "Starting latester"
-sudo /sbin/ifdown eth0
-sudo ~/bin/latester -d can0 -d can1 -d can2 -c 3200 -q --oneattime -n tmp
-r=$?
-sudo /sbin/ifup eth0
-set -e
+rm -f tmp-stat.txt
+sudo /sbin/ifdown --no-scripts eth0
+r=0
+sudo ~/bin/latester -d can0 -d can1 -d can2 -c 3200 -q --oneattime -n tmp || r=$?
+sudo /sbin/ifup --no-scripts eth0
source tmp-stat.txt
-for i in sent lost enobufs $(seq -f percentile%g 0 10 100); do keyval="$keyval $i=$((i))"; done
+unset keyval
+for i in sent lost enobufs out_of_range_below out_of_range_above $(seq -f percentile%g 0 10 100); do keyval="$keyval $i=$((i))"; done
echo "! PERF: gw_latency $avg µs $keyval ok"
-test $avg -eq 0 && exit 1
+if [ $(bc -l <<< "$avg == 0") -eq 1 ]; then exit 1; fi
exit $r
-EOF
+';
my $status = system((qw(ssh -T glab), $latester));
$exp->close();