commit a7c4c8a46c8f1c7484ae74cbc3a436b3e84198f9
author Manuel Pégourié-Gonnard <manuel.pegourie-gonnard@arm.com> Wed Jul 12 12:15:24 2017 +0200
committer Manuel Pégourié-Gonnard <manuel.pegourie-gonnard@arm.com> Tue Aug 08 11:06:51 2017 +0200
tree 0e6131ed5803c4274bf81061441684d531a0e295
parent 66a36b03c694e15f7124938c1660efe1acb59dce

Make some perl scripts usable with git bisect run

For that they need to return between 0 and 124 on error, while die returns
255, causing bisect-run to abort.

tests/scripts/key-exchanges.pl

diff --git a/tests/scripts/key-exchanges.pl b/tests/scripts/key-exchanges.pl
index 528812a..5ce8900 100755
--- a/tests/scripts/key-exchanges.pl
+++ b/tests/scripts/key-exchanges.pl
@@ -33,7 +33,8 @@
 system( "cp $config_h $config_h.bak" ) and die;
 sub abort {
     system( "mv $config_h.bak $config_h" ) and warn "$config_h not restored\n";
-    die $_[0];
+    warn $_[0];
+    exit 1;
 }
 
 for my $kex (@kexes) {