From a44a8cef993af60fea1e30f7572bbddac0d5a810 Mon Sep 17 00:00:00 2001 From: Daniel Stenberg 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 11d45e5..da71713 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 + - 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 - 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 e484a28..2677009 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 50b7028..bcda427 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); -- 2.7.4