Cris Bailiff's 1.1.4 changes: Fix case where curl_slists such as 'HTTPHEADERS'

need to be re-set over persistant requests

diff --git a/perl/Curl_easy/Changes b/perl/Curl_easy/Changes
index 11d45e5af013d1c09e333caeb2d47d37683f3aa2..da7171392579e3ad935d77cc09db60b8b6805902 100644 (file)
--- a/perl/Curl_easy/Changes
+++ b/perl/Curl_easy/Changes
@@ -1,6 +1,10 @@
 Revision history for Perl extension Curl::easy.
 Check out the file README for more info.
 
+1.1.4  Fri Apr 20 2001: - Cris Bailiff <c.bailiff@devsecure.com>
+    - Fix case where curl_slists such as 'HTTPHEADERS' need to
+      be re-set over persistant requests
+
 1.1.3  Wed Apr 18 2001: - Cris Bailiff <c.bailiff@devsecure.com>
     - Change/shorten module function names: Curl::easy::curl_easy_setopt
       becomes Curl::easy::setopt etc. This requires minor changes to existing

diff --git a/perl/Curl_easy/easy.pm b/perl/Curl_easy/easy.pm
index e484a28f2de91e720b1bd14d285052867f219f54..267700907190b5e344f127d92ca4b724d1f4c2ce 100644 (file)
--- a/perl/Curl_easy/easy.pm
+++ b/perl/Curl_easy/easy.pm
@@ -95,7 +95,7 @@ CURLINFO_REQUEST_SIZE
 USE_INTERNAL_VARS
 );
 
-$VERSION = '1.1.3';
+$VERSION = '1.1.4';
 
 $Curl::easy::headers = "";
 $Curl::easy::content = "";

diff --git a/perl/Curl_easy/easy.xs b/perl/Curl_easy/easy.xs
index 50b70280be80db4aed4c2aa73ca5008bb4d26f3c..bcda427361bbc948d184260fb54db642bd593f03 100644 (file)
--- a/perl/Curl_easy/easy.xs
+++ b/perl/Curl_easy/easy.xs
@@ -616,6 +616,11 @@ CODE:
        case CURLOPT_POSTQUOTE:
            slist = &postquote; break;
        }
+        /* free any previous list */
+        if (*slist) {
+            curl_slist_free_all(*slist);
+            *slist=NULL;
+        }                                                                       
        /* ...store the values into it... */
        for (;;) {
            SV *sv = av_shift(array);