From e288a2541df4b0cfd02cbe3c1b9305d516149d23 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Fri, 12 May 2017 09:46:37 +1000
Subject: format: Validate too many flags in format string

Avoid a stack overflow

Reported-by: Ryan Whitworth <me@ryanwhitworth.com>
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 7b67586..0761c49 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -305,6 +305,11 @@ puts "TEST 41 PASSED"
 catch {exec dummy |x second}
 puts "TEST 42 PASSED"
 
+# REGTEST 43
+# too many flags to format
+catch {format %----------------------------------------d 1}
+puts "TEST 43 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1