From: Martin Mares <mj@ucw.cz>
Date: Sat, 13 Sep 2008 13:08:18 +0000 (+0200)
Subject: Avoid Perl when printing signal names.
X-Git-Tag: python-dummy-working~134
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=443586d0e7d71982c8848a62c30200bcec451502;p=eval.git

Avoid Perl when printing signal names.

Use `kill -l $SIG` as suggested by Lukas Turek.

This was the only Perl dependency in the whole libeval.
---

diff --git a/eval/libeval.sh b/eval/libeval.sh
index d3d0e96..6d2ffb1 100644
--- a/eval/libeval.sh
+++ b/eval/libeval.sh
@@ -263,7 +263,7 @@ function test-result
 	SG=${M#Caught fatal signal }
 	SG=${SG#Committed suicide by signal }
 	if [ "$SG" != "$M" ] ; then
-		SG=`perl -MConfig -e '@s=split / /,$Config{sig_name}; print $s[$ARGV[0]]' $SG`
+		SG=`kill -l $SG 2>/dev/null`
 		[ -z "$SG" ] || M="$M (SIG$SG)"
 	fi