diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-02-17 06:08:18 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-02-17 06:08:18 (GMT) |
commit | 203058f02d4fbfde79ae5a95f9648f61681a36fa (patch) | |
tree | ac32fde49c111fec80b54fc74426a566062dece9 /tests/regexp.test | |
parent | 293d30f0a2a4756db591e83e93eae24681e0ec7a (diff) | |
download | tcl-203058f02d4fbfde79ae5a95f9648f61681a36fa.zip tcl-203058f02d4fbfde79ae5a95f9648f61681a36fa.tar.gz tcl-203058f02d4fbfde79ae5a95f9648f61681a36fa.tar.bz2 |
Switch to using command prefixes properly. This is quite a bit faster.
Diffstat (limited to 'tests/regexp.test')
-rw-r--r-- | tests/regexp.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 6c77b41..6c3d774 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -1132,7 +1132,7 @@ test regexp-27.2 {regsub -command} { } ab3efxghi test regexp-27.3 {regsub -command} { set x 0 - regsub -all -command {(?=.)} abcde "incr x;#" + regsub -all -command {(?=.)} abcde {apply {args {incr ::x}}} } 1a2b3c4d5e test regexp-27.4 {regsub -command} -body { regsub -command {.x.} {abcxdef} error |