From da293a1eef2ddd709f10b63744032302ca3597d3 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Sun, 12 Jul 2020 06:40:36 +1000
Subject: string last: fix segfault with invalid index

[string last foo bar -1] gave segfault due to missing
check for invalid index.

Fixes #161

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 regtest.tcl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'regtest.tcl')

diff --git a/regtest.tcl b/regtest.tcl
index 14ce59f..5b7249c 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -355,6 +355,11 @@ puts "TEST 51 PASSED"
 catch {lsearch -all -command abc def}
 puts "TEST 52 PASSED"
 
+# REGTEST 53
+# string last with invalid index
+catch {string last foo bar -1}
+puts "TEST 53 PASSED"
+
 
 # TAKE THE FOLLOWING puts AS LAST LINE
 
-- 
cgit v1.1