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 | 2fac71b8792d6ac9f91fd9c6c6f2d5b2a98dafc4 (patch) | |
| tree | 904a4d83c2067dc823950904196c34b8dd573b79 /generic/tclLink.c | |
| parent | dbd049268f498307121d7fb7a27dafe23d856637 (diff) | |
| download | tcl-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.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') { |