From 443586d0e7d71982c8848a62c30200bcec451502 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sat, 13 Sep 2008 15:08:18 +0200
Subject: [PATCH] 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.
---
 eval/libeval.sh | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
-- 
2.39.5