diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-08 08:07:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-08 08:07:01 (GMT) |
| commit | 1c287f81b4cc32553c3336ad9f095f0e422b7116 (patch) | |
| tree | 7f6587c5984cdb9a920dedd3f0e110ae7f496e0e /win | |
| parent | 342d27d13f57e57c4e1bc71b6dd00ef6244d8af1 (diff) | |
| download | tcl-1c287f81b4cc32553c3336ad9f095f0e422b7116.zip tcl-1c287f81b4cc32553c3336ad9f095f0e422b7116.tar.gz tcl-1c287f81b4cc32553c3336ad9f095f0e422b7116.tar.bz2 | |
Revise the "null data" check: null strings are possible, but empty binary arrays are not
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinDde.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index 5f2ef32..e40e114 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -1443,7 +1443,7 @@ DdeObjCmd( dataLength += 1; } - if (dataLength <= ((flags & DDE_FLAG_BINARY) ? 0 : (int)sizeof(TCHAR))) { + if (dataLength <= 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj("cannot execute null data", -1)); Tcl_SetErrorCode(interp, "TCL", "DDE", "NULL", NULL); |