Hello community,
here is the log from the commit of package perl-WWW-Curl for openSUSE:Factory
checked in at Tue Feb 9 22:42:57 CET 2010.
--------
--- perl-WWW-Curl/perl-WWW-Curl.changes 2010-01-10 16:09:08.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-WWW-Curl/perl-WWW-Curl.changes 2010-02-08 14:28:05.000000000 +0100
@@ -1,0 +2,10 @@
+Mon Feb 8 13:24:22 UTC 2010 - coolo@novell.com
+
+4.11:
+ - Fixed t/19multi.t for libcurl versions compiled with asyncronous dns resolution.
+4.10:
+ - Added support for CURLINFO_SLIST in getinfo (patch by claes).
+ - Merging documentation fixes upstream from the FreeBSD port (thanks Peter).
+ - Added support for curl_multi_fdset.
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
WWW-Curl-4.09.tar.bz2
New:
----
WWW-Curl-4.11.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-WWW-Curl.spec ++++++
--- /var/tmp/diff_new_pack.i6H8rA/_old 2010-02-09 22:42:21.000000000 +0100
+++ /var/tmp/diff_new_pack.i6H8rA/_new 2010-02-09 22:42:21.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-WWW-Curl (Version 4.09)
+# spec file for package perl-WWW-Curl (Version 4.11)
#
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -21,8 +21,8 @@
Name: perl-WWW-Curl
%define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' )
Summary: Perl extension interface for libcurl
-Version: 4.09
-Release: 4
+Version: 4.11
+Release: 1
License: MIT License (or similar) ; MPL ..
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/WWW-Curl
@@ -41,19 +41,14 @@
%description
This module provides a Perl interface to libcurl.
-Authors:
---------
- Georg Horn
- Cris Bailiff
- Balint Szilakszi
-
%prep
%setup -q -n %{cpan_name}-%{version}
%build
perl Makefile.PL OPTIMIZE="$RPM_OPT_FLAGS -Wall"
%{__make} %{?_smp_mflags}
-#%check
+
+%check
#%{__make} test
%install
++++++ WWW-Curl-4.09.tar.bz2 -> WWW-Curl-4.11.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/Changes new/WWW-Curl-4.11/Changes
--- old/WWW-Curl-4.09/Changes 2009-07-09 12:29:55.000000000 +0200
+++ new/WWW-Curl-4.11/Changes 2009-12-18 17:12:54.000000000 +0100
@@ -1,4 +1,14 @@
Revision history for the Perl binding of libcurl, WWW::Curl.
+4.11 Fri Dec 18 2009: - Balint Szilakszi <szbalint at cpan.org>
+
+ - Fixed t/19multi.t for libcurl versions compiled with asyncronous dns resolution.
+
+4.10 Fri Dec 18 2009: - Balint Szilakszi <szbalint at cpan.org>
+
+ - Added support for CURLINFO_SLIST in getinfo (patch by claes).
+ - Merging documentation fixes upstream from the FreeBSD port (thanks Peter).
+ - Added support for curl_multi_fdset.
+
4.09 Thu Jul 09 2009: - Balint Szilakszi <szbalint at cpan.org>
- Fixing broken version check.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/Curl.xs new/WWW-Curl-4.11/Curl.xs
--- old/WWW-Curl-4.09/Curl.xs 2009-07-07 19:47:12.000000000 +0200
+++ new/WWW-Curl-4.11/Curl.xs 2009-12-18 14:33:24.000000000 +0100
@@ -911,6 +911,22 @@
RETVAL = newSVnv(vdouble);
break;
}
+ case CURLINFO_SLIST:
+ {
+ struct curl_slist *vlist, *entry;
+ AV *items = newAV();
+ curl_easy_getinfo(self->curl, option, &vlist);
+ if (vlist != NULL) {
+ entry = vlist;
+ while (entry) {
+ av_push(items, newSVpv(entry->data, 0));
+ entry = entry->next;
+ }
+ curl_slist_free_all(vlist);
+ }
+ RETVAL = newRV(sv_2mortal((SV *) items));
+ break;
+ }
default: {
RETVAL = newSViv(CURLE_BAD_FUNCTION_ARGUMENT);
break;
@@ -1081,6 +1097,40 @@
XSRETURN_EMPTY;
}
+SV *
+curl_multi_fdset(self)
+ WWW::Curl::Multi self
+ PREINIT:
+ fd_set fdread;
+ fd_set fdwrite;
+ fd_set fdexcep;
+ int maxfd;
+ int i;
+ PPCODE:
+ FD_ZERO(&fdread);
+ FD_ZERO(&fdwrite);
+ FD_ZERO(&fdexcep);
+ AV *readset = newAV();
+ AV *writeset = newAV();
+ AV *excepset = newAV();
+ curl_multi_fdset(self->curlm, &fdread, &fdwrite, &fdexcep, &maxfd);
+ if ( maxfd != -1 ) {
+ for (i=0;i <= maxfd;i++) {
+ if (FD_ISSET(i, &fdread)) {
+ av_push(readset, newSViv(i));
+ }
+ if (FD_ISSET(i, &fdwrite)) {
+ av_push(writeset, newSViv(i));
+ }
+ if (FD_ISSET(i, &fdexcep)) {
+ av_push(excepset, newSViv(i));
+ }
+ }
+ }
+ XPUSHs(sv_2mortal(newRV(sv_2mortal((SV *) readset))));
+ XPUSHs(sv_2mortal(newRV(sv_2mortal((SV *) writeset))));
+ XPUSHs(sv_2mortal(newRV(sv_2mortal((SV *) excepset))));
+
int
curl_multi_perform(self)
WWW::Curl::Multi self
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/MANIFEST new/WWW-Curl-4.11/MANIFEST
--- old/WWW-Curl-4.09/MANIFEST 2009-05-31 20:40:28.000000000 +0200
+++ new/WWW-Curl-4.11/MANIFEST 2009-12-18 15:21:01.000000000 +0100
@@ -35,6 +35,7 @@
t/16formpost.t
t/17slist.t
t/18twinhandles.t
+t/19multi.t
t/meta.t
t/new/00constants.t
t/new/01basic.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/META.yml new/WWW-Curl-4.11/META.yml
--- old/WWW-Curl-4.09/META.yml 2009-07-09 12:37:36.000000000 +0200
+++ new/WWW-Curl-4.11/META.yml 2009-12-18 17:23:15.000000000 +0100
@@ -22,4 +22,4 @@
- template
requires:
perl: 5.6.1
-version: 4.09
+version: 4.11
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/README new/WWW-Curl-4.11/README
--- old/WWW-Curl-4.09/README 2009-07-07 19:47:12.000000000 +0200
+++ new/WWW-Curl-4.11/README 2009-12-15 18:05:55.000000000 +0100
@@ -3,7 +3,7 @@
The Perl module WWW::Curl provides an interface to the cURL library "libcurl".
See http://curl.haxx.se/ for more information on cURL and libcurl.
-This module requires libcurl and the corresponding headerfiles to be
+This module requires libcurl and the corresponding header files to be
installed. You then may install this module via the usual way
(for installation on Windows please see README.Win32):
@@ -27,9 +27,9 @@
This module, starting from version 4 requires at least Perl 5.6 and libcurl 7.10.8.
These releases are more than 5 years old and they have multiple security vulnerabilities,
it is advised that you upgrade as soon as possible to a more recent, secure version.
-Anything older than these versions of Perl and libcurl respectively are not supported.
+Anything older than these versions of Perl and libcurl respectively is not supported.
-Windows specific fixes and patches are welcome as testing is mainly focused on linux.
+Windows specific fixes and patches are welcome as testing is mainly focused on Linux.
The module provides the same functionality, except as noted in the documentation,
as libcurl provides to C programs. Please refer to the documentation of libcurl for the
@@ -45,12 +45,12 @@
Parts of the callback support were added Forrest Cahoon
-More callback support, many tests additional documentation and Makefile
+More callback support, many tests, additional documentation, and Makefile
features have been added by Cris Bailiff
Curl multi support has been added by Sebastian Riedel <sri at oook.de>
-The current maintainer is Cris Bailiff and
+The current maintainers are Cris Bailiff and
Bálint Szilakszi <szbalint at cpan.org>
The latest version is available on CPAN and can be downloaded from
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/SIGNATURE new/WWW-Curl-4.11/SIGNATURE
--- old/WWW-Curl-4.09/SIGNATURE 2009-07-09 12:38:11.000000000 +0200
+++ new/WWW-Curl-4.11/SIGNATURE 2009-12-18 17:22:09.000000000 +0100
@@ -12,15 +12,15 @@
not run its Makefile.PL or Build.PL.
-----BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
+Hash: SHA256
-SHA1 a4357ae9df348816f49aa7c66bc99fd35c2a20d5 Changes
-SHA1 0fc80fc01c6850ac1999bc9dbb156e65cbb3f9e5 Curl.xs
+SHA1 758725823ca0719908b1138da03481c2ba8419d7 Changes
+SHA1 32ad177360c0e370e4c1bdb83ead474961769e96 Curl.xs
SHA1 94cbea5b3fb940e25cd4535d1c81bfd7d51dac3c LICENSE
-SHA1 9da6d1654f2d8f05677f40f40b0d9b4b755974e9 MANIFEST
-SHA1 00d1744ad952cdf511d1705dc520a1714b3f1081 META.yml
+SHA1 a33cdbb8996d5b8dfc92da6d34e7327ebde1b1c5 MANIFEST
+SHA1 122bbde2eee75a39914d2b64b8bcc1d9462385b3 META.yml
SHA1 3025d3ee924e6e7a2f9b5249a646331502c9be72 Makefile.PL
-SHA1 66e1c652fecb2223bb94d4a7f726458be8ee65d8 README
+SHA1 a21d7184f91692fb3d6d7175e4a526f9d99fe3c7 README
SHA1 ed6f9f399075307a33bd02902ebbadbbbfbd8bab README.Win32
SHA1 fd5f3c4f0418efee3b9b16cf8c3902e8374909df inc/Module/Install.pm
SHA1 7cd7c349afdf3f012e475507b1017bdfa796bfbd inc/Module/Install/Base.pm
@@ -29,19 +29,19 @@
SHA1 dbec1085a29a855202ee797a5bac319cf426827f inc/Module/Install/MakeMaker.pm
SHA1 3e83972921d54198d1246f7278f08664006cd65d inc/Module/Install/Makefile.pm
SHA1 12bf1867955480d47d5171a9e9c6a96fabe0b58f inc/Module/Install/Metadata.pm
-SHA1 09ef704f6e72b1d6214a43e23cef96f4e5575f23 lib/WWW/Curl.pm
-SHA1 c911b63919e0dc3f9a2d9d4ec80a8722723cd740 lib/WWW/Curl/Easy.pm
+SHA1 7c063f5e01e0489f3725092ea2da3699d9b925d7 lib/WWW/Curl.pm
+SHA1 4e95036c5543aecf91e3d97fa79df03f4a367ffa lib/WWW/Curl/Easy.pm
SHA1 3fc2f9b503827e28b96c4ea49034039b7f23ab20 lib/WWW/Curl/Form.pm
SHA1 0bddc700447a50dd26d13119ee60349556ce1811 lib/WWW/Curl/Multi.pm
SHA1 bcf4bc64399691f1871b9592ced73ce5fef86fea lib/WWW/Curl/Share.pm
SHA1 802cb1fcd35fe78e4cdb10164a05e54ce1427543 t/00constants.t
-SHA1 a34d7760468a36938f50296161c72795700c9ab3 t/01basic.t
+SHA1 263f02465cc31d3233585dc7e387137edcf560f0 t/01basic.t
SHA1 07b63b1baca142a0e34e79633d0eb57684524bed t/02callbacks.t
SHA1 905c848deb6492d539c5bdf89c49632a412af15a t/04abort-test.t
SHA1 f9c842503835908a0687ab41655042a16b8b5112 t/05progress.t
SHA1 6406f237b74c8b847d233e5570c2769d7445c307 t/06http-post.t
SHA1 a252ca35aaf428e566e8f24bb59f3b56e4c8511d t/07ftp-upload.t
-SHA1 4811cc6d6af52f7adaf5e0a3332df980ea377d27 t/08ssl.t
+SHA1 264e51909488be715566f9341ac438d5a8dc7de1 t/08ssl.t
SHA1 ec62c062c627e7f52df512eae496223bd49ad2f3 t/09times.t
SHA1 9499f362a6d06a19aa6bc41d3647dbd5dc5aca63 t/10errbuf.t
SHA1 2c5793062538fdff6e3d837bb6c8a35c59a2b61e t/13slowleak.t
@@ -50,6 +50,7 @@
SHA1 785507b3fa6f414298cdcf7ceaba1f9274aa07d2 t/16formpost.t
SHA1 e784a874eb36fd5b16a12fc58365cce697ecbbab t/17slist.t
SHA1 9b80d6de1675261d43abea2f76cfd610f42a4494 t/18twinhandles.t
+SHA1 7c7e12a6a5afa9afaec967958e1396d41f2697c8 t/19multi.t
SHA1 2924361d0713031b92c6b888f11e860d357837f7 t/meta.t
SHA1 3cd20c1711b43058550922404f53a844fb2695e6 t/new/00constants.t
SHA1 d9863d2e71f618a58d419534867cda8bd97dcfbf t/new/01basic.t
@@ -65,13 +66,13 @@
SHA1 20ec0bd03ff2600505d38623153a6eb3087b5814 t/new/README
SHA1 ac25bfa56d36f19cbee72a968b06372e88602a61 t/pod-coverage.t
SHA1 0190346d7072d458c8a10a45c19f86db641dcc48 t/pod.t
-SHA1 ea03750695bf2d81436ec300da0201f50a64bb9c template/Easy.pm.tmpl
+SHA1 1916f03aef4da23a6a998c855f7ef57781b79b51 template/Easy.pm.tmpl
SHA1 b4841adcad866b70d9d72f171d3d0f8f9d5b3c79 template/Share.pm.tmpl
SHA1 468b011caaf4d54609b421027d7c6262a9260e89 typemap
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.9 (GNU/Linux)
+Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAkpVyI8ACgkQ+22TSbOiiI+dTACeIoP3QzPHCmhuWdydQ9+nDVQa
-6c4AniUQBP/axKBrMuwHpV7HwZvuJewL
-=rkWu
+iF4EAREIAAYFAksrrC4ACgkQ9vEeIen/Zj4GswEAl8QU2W9k3rsyWMCP2Kfn0JXp
+Si/audyYpl6y592ug60A/1pLz1HUg29JBVunnnTbxbn51wNSz/xgzF6dOooHGL2C
+=bATu
-----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/lib/WWW/Curl/Easy.pm new/WWW-Curl-4.11/lib/WWW/Curl/Easy.pm
--- old/WWW-Curl-4.09/lib/WWW/Curl/Easy.pm 2009-07-09 12:37:48.000000000 +0200
+++ new/WWW-Curl-4.11/lib/WWW/Curl/Easy.pm 2009-12-18 17:23:18.000000000 +0100
@@ -5,7 +5,7 @@
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-$VERSION = '4.09';
+$VERSION = '4.11';
require WWW::Curl;
require Exporter;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/lib/WWW/Curl.pm new/WWW-Curl-4.11/lib/WWW/Curl.pm
--- old/WWW-Curl-4.09/lib/WWW/Curl.pm 2009-07-09 12:34:46.000000000 +0200
+++ new/WWW-Curl-4.11/lib/WWW/Curl.pm 2009-12-18 17:14:47.000000000 +0100
@@ -6,7 +6,7 @@
use DynaLoader;
BEGIN {
- $VERSION = '4.09';
+ $VERSION = '4.11';
@ISA = qw(DynaLoader);
__PACKAGE__->bootstrap;
}
@@ -271,6 +271,11 @@
Most methods are either not exposed through the WWW::Curl::Multi API or they behave differently
than it's C counterpart. Please see the section about WWW::Curl::Multi above.
+=item curl_multi_fdset
+
+This method returns three arrayrefs: the read, write and exception fds libcurl knows about.
+In the case of no file descriptors in the given set, an empty array is returned.
+
=back
=head1 USAGE CASES
@@ -311,7 +316,7 @@
Version 3.01 added some support for pre-multi versions of libcurl.
-Version 3.00 adds WWW::Curl::Multi interface, and a new module names
+Version 3.00 adds WWW::Curl::Multi interface, and new module names
following perl conventions (WWW::Curl::Easy rather than WWW::Curl::easy),
by Sebastian Riedel <sri at cpan.org>.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/t/01basic.t new/WWW-Curl-4.11/t/01basic.t
--- old/WWW-Curl-4.09/t/01basic.t 2009-07-07 19:47:12.000000000 +0200
+++ new/WWW-Curl-4.11/t/01basic.t 2009-12-15 17:54:36.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 16;
+use Test::More tests => 18;
use File::Temp qw/tempfile/;
BEGIN { use_ok( 'WWW::Curl::Easy' ); }
@@ -35,6 +35,7 @@
$myheaders[1] = "User-Agent: Perl interface for libcURL";
ok(! $curl->setopt(CURLOPT_HTTPHEADER, \@myheaders), "Setting CURLOPT_HTTPHEADER");
+$curl->setopt(CURLOPT_COOKIEFILE, "");
my $retcode = $curl->perform();
ok(! $retcode, "Curl return code ok");
@@ -45,6 +46,14 @@
ok( $realurl, "getinfo returns CURLINFO_EFFECTIVE_URL");
my $httpcode = $curl->getinfo(CURLINFO_HTTP_CODE);
ok( $httpcode, "getinfo returns CURLINFO_HTTP_CODE");
+
+SKIP: {
+ skip "Only testing cookies against google.com", 2 unless $url eq "http://www.google.com";
+ my $cookies = $curl->getinfo(CURLINFO_COOKIELIST);
+ is(ref $cookies, "ARRAY", "Returned array reference");
+ ok(@$cookies > 0, "Got 1 or more cookies");
+}
+
#diag ("Bytes: $bytes");
#diag ("realurl: $realurl");
#diag ("httpcode: $httpcode");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/t/08ssl.t new/WWW-Curl-4.11/t/08ssl.t
--- old/WWW-Curl-4.09/t/08ssl.t 2009-02-12 00:30:22.000000000 +0100
+++ new/WWW-Curl-4.11/t/08ssl.t 2009-12-18 14:33:24.000000000 +0100
@@ -10,10 +10,6 @@
# site-url, verifypeer(0,1), verifyhost(0,2), result(0=ok, 1=fail), result-openssl0.9.5
my $url_list=[
- [ 'https://65.205.248.243/', 0, 0, 0 , 0 ], # www.thawte.com
-# [ 'https://65.205.248.243/', 0, 2, 1 , 1 ], # www.thawte.com
- [ 'https://65.205.249.60/', 0, 0, 0 , 0 ], # www.verisign.com
-# [ 'https://65.205.249.60/', 0, 2, 1 , 1 ], # www.verisign.com
[ 'https://www.microsoft.com/', 0, 0, 0 , 0 ],
[ 'https://www.microsoft.com/', 0, 0, 0 , 0 ],
[ 'https://www.verisign.com/', 1, 2, 0 , 0 ], # verisign have had broken ssl - do this first
@@ -32,7 +28,7 @@
];
-if (&WWW::Curl::Easy::version() !~ /ssl/i) {
+if (&WWW::Curl::Easy::version() !~ /ssl|nss/i) {
plan skip_all => 'libcurl was compiled without ssl support, skipping ssl tests';
} else {
plan tests => scalar(@{$url_list})+7;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/t/19multi.t new/WWW-Curl-4.11/t/19multi.t
--- old/WWW-Curl-4.09/t/19multi.t 1970-01-01 01:00:00.000000000 +0100
+++ new/WWW-Curl-4.11/t/19multi.t 2009-12-18 17:10:43.000000000 +0100
@@ -0,0 +1,74 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More tests => 16;
+use WWW::Curl::Easy;
+use WWW::Curl::Multi;
+use File::Temp qw/tempfile/;
+
+my $header = tempfile();
+my $header2 = tempfile();
+my $body = tempfile();
+my $body2 = tempfile();
+
+my $url = $ENV{CURL_TEST_URL} || "http://www.google.com";
+
+sub fhbits {
+ my $fhlist = shift;
+ my $bits = '';
+ for (@{$fhlist}) {
+ vec($bits,$_,1) = 1;
+ }
+ return $bits;
+}
+
+sub action_wait {
+ my $curlm = shift;
+ my ($re, $wr, $err) = $curlm->fdset;
+ my ($rin, $win, $ein, $rout, $wout, $eout);
+ $rin = $win = $ein = '';
+ $rin = fhbits($re);
+ $win = fhbits($wr);
+ $ein = $rin | $win;
+ my ($nfound,$timeleft) = select($rin, $win, $ein, 1);
+}
+
+ my $curl = new WWW::Curl::Easy;
+ $curl->setopt( CURLOPT_URL, $url);
+ ok(! $curl->setopt(CURLOPT_WRITEHEADER, $header), "Setting CURLOPT_WRITEHEADER");
+ ok(! $curl->setopt(CURLOPT_WRITEDATA,$body), "Setting CURLOPT_WRITEDATA");
+
+ my $curl2 = new WWW::Curl::Easy;
+ $curl2->setopt( CURLOPT_URL, $url);
+ ok(! $curl2->setopt(CURLOPT_WRITEHEADER, $header2), "Setting CURLOPT_WRITEHEADER");
+ ok(! $curl2->setopt(CURLOPT_WRITEDATA,$body2), "Setting CURLOPT_WRITEDATA");
+
+ my $curlm = new WWW::Curl::Multi;
+ my @fds = $curlm->fdset;
+ ok( @fds == 3 && ref($fds[0]) && ref($fds[1]) && ref($fds[2]), "fdset returns 3 references");
+ ok( ! @{$fds[0]} && ! @{$fds[1]} && !@{$fds[2]} , "The three returned arrayrefs are empty");
+ $curlm->perform;
+ @fds = $curlm->fdset;
+ ok( ! @{$fds[0]} && ! @{$fds[1]} && !@{$fds[2]} , "The three returned arrayrefs are still empty after perform");
+ $curlm->add_handle($curl);
+ @fds = $curlm->fdset;
+ ok( ! @{$fds[0]} && ! @{$fds[1]} && !@{$fds[2]} , "The three returned arrayrefs are still empty after perform and add_handle");
+ $curlm->perform;
+ @fds = $curlm->fdset;
+ ok( @{$fds[0]} == 1 || @{$fds[1]} == 1, "The read or write fdset contains one fd");
+ $curlm->add_handle($curl2);
+ @fds = $curlm->fdset;
+ ok(@{$fds[0]} == 1 || @{$fds[1]} == 1, "The read or write fdset still only contains one fd");
+ $curlm->perform;
+ @fds = $curlm->fdset;
+ ok( @{$fds[0]} == 2 || @{$fds[1]} == 2, "The read or write fdset contains two fds");
+ while ($curlm->perform) {
+ action_wait($curlm);
+ }
+ @fds = $curlm->fdset;
+ ok( ! @{$fds[0]} && ! @{$fds[1]} && !@{$fds[2]} , "The three returned arrayrefs are empty after we have no active transfers");
+ ok($header, "Header reply exists from first handle");
+ ok($body, "Body reply exists from second handle");
+ ok($header2, "Header reply exists from second handle");
+ ok($body2, "Body reply exists from second handle");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/WWW-Curl-4.09/template/Easy.pm.tmpl new/WWW-Curl-4.11/template/Easy.pm.tmpl
--- old/WWW-Curl-4.09/template/Easy.pm.tmpl 2009-07-09 12:34:58.000000000 +0200
+++ new/WWW-Curl-4.11/template/Easy.pm.tmpl 2009-12-18 17:14:53.000000000 +0100
@@ -5,7 +5,7 @@
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-$VERSION = '4.09';
+$VERSION = '4.11';
require WWW::Curl;
require Exporter;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org