wrath/shaniqua-tclcurl-fa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merged in stpwd/tclcurl (pull request #2)

Browse Source 
Fix curl_formadd() for CURLFORM_CONTENTSLENGTH == 0
This commit is contained in:
Steve Havelka 2015-09-24 10:14:43 -07:00
commit c8a6a4f275
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
generic/tclcurl.c
View File

@ -748,8 +748,13 @@ curlSetOpts(Tcl_Interp *interp, struct curlObjData *curlData,
/* fprintf(stdout,"Section contents: %s\n",Tcl_GetString(httpPostData[i+1]));*/ /* fprintf(stdout,"Section contents: %s\n",Tcl_GetString(httpPostData[i+1]));*/
tmpStr=Tcl_GetStringFromObj(httpPostData[i+1],&curlformBufferSize); tmpStr=Tcl_GetStringFromObj(httpPostData[i+1],&curlformBufferSize);
formArray[formArrayIndex].option = CURLFORM_COPYCONTENTS; formArray[formArrayIndex].option = CURLFORM_COPYCONTENTS;
formArray[formArrayIndex].value = (char *)
memcpy(Tcl_Alloc(curlformBufferSize), tmpStr, curlformBufferSize); formArray[formArrayIndex].value = Tcl_Alloc((curlformBufferSize > 0) ? curlformBufferSize : 1);
if (curlformBufferSize > 0) {
memcpy((char *)formArray[formArrayIndex].value,tmpStr,curlformBufferSize);
} else {
memset((char *)formArray[formArrayIndex].value,0,1);
}
formArrayIndex++; formArrayIndex++;
formArray[formArrayIndex].option = CURLFORM_CONTENTSLENGTH; formArray[formArrayIndex].option = CURLFORM_CONTENTSLENGTH;