diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 12:02:08 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 12:02:08 (GMT) |
commit | 716453aae667c6e2eac49593e573174349be2d65 (patch) | |
tree | 904a4d83c2067dc823950904196c34b8dd573b79 /generic/tclLink.c | |
parent | c7da596da276b6402ac5db54a47902538dd2a221 (diff) | |
download | tcl-716453aae667c6e2eac49593e573174349be2d65.zip tcl-716453aae667c6e2eac49593e573174349be2d65.tar.gz tcl-716453aae667c6e2eac49593e573174349be2d65.tar.bz2 |
Little tweak: Decimal dot's should be allowed as well as first part. Test-case for that as well.
Diffstat (limited to 'generic/tclLink.c')
-rw-r--r-- | generic/tclLink.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index a80ec8a..0b21997 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -701,7 +701,7 @@ SetInvalidRealFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr) { return TCL_OK; } if (TclParseNumber(NULL, objPtr, NULL, str, length, &endPtr, - TCL_PARSE_DECIMAL_ONLY|TCL_PARSE_INTEGER_ONLY) == TCL_OK) { + TCL_PARSE_DECIMAL_ONLY) == TCL_OK) { /* If number is followed by [eE][+-]?, then it is an invalid * double, but it could be the start of a valid double. */ if (*endPtr == 'e' || *endPtr == 'E') { |