diff options
| author | Steve Bennett <steveb@workware.net.au> | 2013-11-06 08:49:11 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2013-11-06 08:55:15 +1000 |
| commit | a077f0800f5bbc7ca5f3b368726f7d1757c16549 (patch) | |
| tree | d1f32c6dfaf29df2cd2a2663ba99537af59b8c26 /regtest.tcl | |
| parent | 91960fb0e584579c5dc25376b5bfba8c6eafa4a3 (diff) | |
| download | jimtcl-a077f0800f5bbc7ca5f3b368726f7d1757c16549.zip jimtcl-a077f0800f5bbc7ca5f3b368726f7d1757c16549.tar.gz jimtcl-a077f0800f5bbc7ca5f3b368726f7d1757c16549.tar.bz2 | |
Fix [string tolower] buffer overflow for non-utf8
Reported-by: Andy <jimdevel@hummypkg.org.uk>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 2f09700..65f16af 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -210,6 +210,10 @@ set x [lindex {} 0] info source $x eval $x +# REGTEST 30 +# non-UTF8 string tolower +string tolower "/mod/video/h\303\203\302\244xan_ witchcraft through the ages_20131101_0110.t" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |