aboutsummaryrefslogtreecommitdiff
path: root/regtest.tcl
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2017-05-11 21:59:37 +1000
committerSteve Bennett <steveb@workware.net.au>2017-05-12 13:02:01 +1000
commita14d9438b9a67899be0443f39345fa957677f9b8 (patch)
tree094486a5bcbdf1079786bdc6c1d714bd50178f29 /regtest.tcl
parent2a3bfa6b1962af2dfb5c6e49d6dd6b3a39714df9 (diff)
downloadjimtcl-a14d9438b9a67899be0443f39345fa957677f9b8.zip
jimtcl-a14d9438b9a67899be0443f39345fa957677f9b8.tar.gz
jimtcl-a14d9438b9a67899be0443f39345fa957677f9b8.tar.bz2
exec: Fix check for | and |&
These are only allowed as separate args. One check was allowing them as a prefix which could lead to an invalid memory access Reported-by: Ryan Whitworth <me@ryanwhitworth.com> Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
-rw-r--r--regtest.tcl5
1 files changed, 5 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl
index 5bc3227..7b67586 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -300,6 +300,11 @@ puts "TEST 40 PASSED"
catch {scan x %3}
puts "TEST 41 PASSED"
+# REGTEST 42
+# | and |& are not acceptable as prefixes
+catch {exec dummy |x second}
+puts "TEST 42 PASSED"
+
# TAKE THE FOLLOWING puts AS LAST LINE
puts "--- ALL TESTS PASSED ---"