diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-31 05:17:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-31 05:17:33 (GMT) |
| commit | 15624be5c60333dd6c9ca7a0b651fda1d92e7b7c (patch) | |
| tree | d6af24523cb86d4a3b20a3e66c16644dadc319b2 /tests/exec.test | |
| parent | 6d8a36d84d2843681302604a082e2f787c3c3674 (diff) | |
| parent | f50bf4d17a2021e535f47e5253e24bd3dc1269b5 (diff) | |
| download | tcl-contrib_patrick_fradin_code_cleanup.zip tcl-contrib_patrick_fradin_code_cleanup.tar.gz tcl-contrib_patrick_fradin_code_cleanup.tar.bz2 | |
merge trunkcontrib_patrick_fradin_code_cleanup
Diffstat (limited to 'tests/exec.test')
| -rw-r--r-- | tests/exec.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/exec.test b/tests/exec.test index 916b739..a354440 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -157,7 +157,7 @@ test exec-2.6 {redirecting input from immediate source, with UTF} -setup { encoding system iso8859-1 proc quotenonascii s { regsub -all {\[|\\|\]} $s {\\&} s - regsub -all {[\u007f-\uffff]} $s \ + regsub -all "\[\u007f-\uffff\]" $s \ {[apply {c {format {\u%04x} [scan $c %c]}} &]} s return [subst -novariables $s] } |