diff options
| author | avl <avl> | 2017-03-05 15:05:48 (GMT) |
|---|---|---|
| committer | avl <avl> | 2017-03-05 15:05:48 (GMT) |
| commit | ef3d739cdf66aa26639c9167d6e9da8a2d64a54d (patch) | |
| tree | 28a3c3a3d6d64830f1df23611f7ead6521f8f9a0 /generic/tclStrToD.c | |
| parent | 0f7d84bbbf23439450bb55a551219457d66fce16 (diff) | |
| download | tcl-ef3d739cdf66aa26639c9167d6e9da8a2d64a54d.zip tcl-ef3d739cdf66aa26639c9167d6e9da8a2d64a54d.tar.gz tcl-ef3d739cdf66aa26639c9167d6e9da8a2d64a54d.tar.bz2 | |
Fix for Ticket [71c0878b71] + test cases
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 77e1839..224ab45 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -539,7 +539,7 @@ TclParseNumber( */ if (bytes == NULL) { - if (endPtrPtr == NULL) { + if (interp == NULL && endPtrPtr == NULL) { if (objPtr->typePtr == &tclDictType) { /* A dict can never be a (single) number */ return TCL_ERROR; |