From 2a3bfa6b1962af2dfb5c6e49d6dd6b3a39714df9 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Thu, 11 May 2017 21:47:27 +1000
Subject: scan: error on missing conversion char

Don't read invalid memory

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 2b0fe8c..5bc3227 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -295,6 +295,11 @@ lsort r($d)
 catch {dict remove r($d) m}
 puts "TEST 40 PASSED"
 
+# REGTEST 41
+# access invalid memory on no scan conversion char
+catch {scan x %3}
+puts "TEST 41 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1