Daniel, Georg

The perl interface for curl_slists needed fixing in the case of
multiple/persistent requests, e.g. when you want to set the http headers
on 2 different requests. There was no way to free the first set, so the
second got appended. Now a list is freed whenever it is re-specified.

The patch for 1.1.3 > 1.1.4 is attached, and a new tarball...

Cris

Daniel Stenberg wrote:
>
> If no one reports any major problems with the currently available 7.7.2 pre-
> release within the next 24 hours or so, I plan to release a true 7.7.2
> version tomorrow.
>
> The current pre-release is found at http://curl.haxx.se/beta/
>
> Of course I need people to try this. Especially people that have reported
> bugs that we supposedly have fixed now. Fixes included in this release are
> mentioned at http://curl.haxx.se/changes.html
>
> You can now use curl natively using at least six different programming
> languages. There's no excuse not to write up that project of your anymore!
> ;-)
>
> Now, who'll write the curl interface for the seventh supported language?
>
> --
> Daniel Stenberg -- curl project maintainer -- http://curl.haxx.se/

diff -c -r Curl-easy-1.1.3/Changes Curl-easy-1.1.4/Changes
*** Curl-easy-1.1.3/Changes Wed Apr 18 19:42:16 2001
--- Curl-easy-1.1.4/Changes Fri Apr 20 12:21:39 2001
***************
*** 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_at_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_at_devsecure.com>
      - Change/shorten module function names: Curl::easy::curl_easy_setopt
        becomes Curl::easy::setopt etc. This requires minor changes to existing
diff -c -r Curl-easy-1.1.3/easy.pm Curl-easy-1.1.4/easy.pm
*** Curl-easy-1.1.3/easy.pm Wed Apr 18 16:37:20 2001
--- Curl-easy-1.1.4/easy.pm Fri Apr 20 12:19:16 2001
***************
*** 95,101 ****
  USE_INTERNAL_VARS
  );
  
! $VERSION = '1.1.3';
  
  $Curl::easy::headers = "";
  $Curl::easy::content = "";
--- 95,101 ----
  USE_INTERNAL_VARS
  );
  
! $VERSION = '1.1.4';
  
  $Curl::easy::headers = "";
  $Curl::easy::content = "";
diff -c -r Curl-easy-1.1.3/easy.xs Curl-easy-1.1.4/easy.xs
*** Curl-easy-1.1.3/easy.xs Wed Apr 18 19:54:51 2001
--- Curl-easy-1.1.4/easy.xs Fri Apr 20 12:20:22 2001
***************
*** 616,621 ****
--- 616,626 ----
          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);