aboutsummaryrefslogtreecommitdiff
path: root/jim.c
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2013-02-15 12:26:19 +1000
committerSteve Bennett <steveb@workware.net.au>2013-02-15 12:26:19 +1000
commit9d4f23daa022c9ca012fb65606960b64b22febe5 (patch)
tree7061e0cb77c1dc72d834f8be9c216a0a5a37cba8 /jim.c
parentc75d1adc81d7fd1b9427aec8823859b881c34468 (diff)
downloadjimtcl-9d4f23daa022c9ca012fb65606960b64b22febe5.zip
jimtcl-9d4f23daa022c9ca012fb65606960b64b22febe5.tar.gz
jimtcl-9d4f23daa022c9ca012fb65606960b64b22febe5.tar.bz2
Fix [string replace] replacing single char
Also added some additional tests Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
-rw-r--r--jim.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/jim.c b/jim.c
index edb35d6..fe6ca50 100644
--- a/jim.c
+++ b/jim.c
@@ -2673,7 +2673,7 @@ Jim_Obj *JimStringReplaceObj(Jim_Interp *interp,
return NULL;
}
- if (last <= first) {
+ if (last < first) {
return strObjPtr;
}
@@ -13401,7 +13401,7 @@ badcompareargs:
Jim_Obj *objPtr;
if (argc != 5 && argc != 6) {
- Jim_WrongNumArgs(interp, 2, argv, "string first last ?newstring?");
+ Jim_WrongNumArgs(interp, 2, argv, "string first last ?string?");
return JIM_ERR;
}
objPtr = JimStringReplaceObj(interp, argv[2], argv[3], argv[4], argc == 6 ? argv[5] : NULL);