diff options
author | Steve Bennett <steveb@workware.net.au> | 2013-02-15 12:26:19 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2013-02-15 12:26:19 +1000 |
commit | 9d4f23daa022c9ca012fb65606960b64b22febe5 (patch) | |
tree | 7061e0cb77c1dc72d834f8be9c216a0a5a37cba8 /jim.c | |
parent | c75d1adc81d7fd1b9427aec8823859b881c34468 (diff) | |
download | jimtcl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |