diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-16 14:47:15 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-16 14:47:15 (GMT) |
| commit | 6f8a00dcd5a10e71caf9e3d2f7067523c4ff0b28 (patch) | |
| tree | 7d22c170916773ed8248dc5d4b42f9caaa291baf /generic/tclUtil.c | |
| parent | 4830ed53a3b546ff699230e332c0a6d4fecf5a24 (diff) | |
| parent | eb476fdf9350b70cf8ab1ec90ad848dec9d1b75b (diff) | |
| download | tcl-6f8a00dcd5a10e71caf9e3d2f7067523c4ff0b28.zip tcl-6f8a00dcd5a10e71caf9e3d2f7067523c4ff0b28.tar.gz tcl-6f8a00dcd5a10e71caf9e3d2f7067523c4ff0b28.tar.bz2 | |
Merge completion of dgp-read-bytes branch.
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 5f4cdae..8c6adfe 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2334,7 +2334,7 @@ TclStringMatchObj( udata = Tcl_GetUnicodeFromObj(strObj, &length); uptn = Tcl_GetUnicodeFromObj(ptnObj, &plen); match = TclUniCharMatch(udata, length, uptn, plen, flags); - } else if ((strObj->typePtr == &tclByteArrayType) && !flags) { + } else if (TclIsPureByteArray(strObj) && !flags) { unsigned char *data, *ptn; data = Tcl_GetByteArrayFromObj(strObj, &length); |