Ticket #8669: curl.c.diff

base/src/pextlib1.0/curl.c

@@ -149 +149 @@
                 const char* theURL;
                 const char* theFilePath;
                 CURLcode theCurlCode;
+                struct curl_slist *headers = NULL;
                 
                 /* we might have options and then the url and the file */
                 /* let's process the options first */
@@ -280 +281 @@
                         }
                 }
 
+                /* Clear the Pragma: no-cache header */
+                headers = curl_slist_append(headers, "Pragma:");
+                theCurlCode = curl_easy_setopt(theHandle, CURLOPT_HTTPHEADER, headers);
+                if (theCurlCode != CURLE_OK) {
+                        theResult = SetResultFromCurlErrorCode(interp, theCurlCode);
+                        break;
+                }
+
                 /* actually fetch the resource */
                 theCurlCode = curl_easy_perform(theHandle);
                 if (theCurlCode != CURLE_OK) {
@@ -291 +300 @@
                 (void) fclose( theFile );
                 theFile = NULL;
                 
+                /* free header memory */
+                curl_slist_free_all(headers);
+
                 /* If --effective-url option was given, set given variable name to last effective url used by curl */
                 if (effectiveURLVarName != NULL) {
                         theCurlCode = curl_easy_getinfo(theHandle, CURLINFO_EFFECTIVE_URL, &effectiveURL);