From a44a8cef993af60fea1e30f7572bbddac0d5a810 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Fri, 20 Apr 2001 06:49:58 +0000
Subject: [PATCH] Cris Bailiff's 1.1.4 changes: Fix case where curl_slists such
 as 'HTTPHEADERS' need to be re-set over persistant requests

---
 perl/Curl_easy/Changes | 4 ++++
 perl/Curl_easy/easy.pm | 2 +-
 perl/Curl_easy/easy.xs | 5 +++++
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/perl/Curl_easy/Changes b/perl/Curl_easy/Changes
index 11d45e5af..da7171392 100644
--- 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 e484a28f2..267700907 100644
--- 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 50b70280b..bcda42736 100644
--- 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);