diff options
| author | avl <avl> | 2017-03-05 15:05:48 (GMT) |
|---|---|---|
| committer | avl <avl> | 2017-03-05 15:05:48 (GMT) |
| commit | 08192ab42f794f6a486fdc21a537cce794f04472 (patch) | |
| tree | 28a3c3a3d6d64830f1df23611f7ead6521f8f9a0 /generic/tclStrToD.c | |
| parent | 838c36a45d377ef799dd45158832040a6a528d91 (diff) | |
| download | tcl-08192ab42f794f6a486fdc21a537cce794f04472.zip tcl-08192ab42f794f6a486fdc21a537cce794f04472.tar.gz tcl-08192ab42f794f6a486fdc21a537cce794f04472.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; |