summaryrefslogtreecommitdiffstats
path: root/generic/tclLink.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-12-23 12:02:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-12-23 12:02:08 (GMT)
commit2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4 (patch)
tree904a4d83c2067dc823950904196c34b8dd573b79 /generic/tclLink.c
parentdbd049268f498307121d7fb7a27dafe23d856637 (diff)
downloadtcl-2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4.zip
tcl-2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4.tar.gz
tcl-2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4.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.c2
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') {