Bug #62426 for AnyEvent-Curl-Multi: Problem in Perls before 5.10

Mon Oct 25 01:17:05 2010 james2vegas [...] aim.com - Ticket created

Subject:

Problem in Perls before 5.10

make test fails with
Show quoted text

#   Failed test 'use AnyEvent::Curl::Multi;'
#   at t/00-load.t line 6.
#     Tried to use 'AnyEvent::Curl::Multi'.
#     Error: Bareword "CURLOPT_TIMEOUT_MS" not allowed while "strict subs" in u

se at /usr/home/jamesw/.cpan/build/AnyEvent-Curl-Multi-0.01-x7w2_9/blib/lib/AnyE
vent/Curl/Multi.pm line 335.
Show quoted text

# Compilation failed in require at (eval 4) line 2.
# BEGIN failed--compilation aborted at (eval 4) line 2.

Use of uninitialized value in concatenation (.) or string at t/00-load.t line 10
.
Show quoted text

# Testing AnyEvent::Curl::Multi , Perl 5.008009, /usr/local/bin/perl
# Looks like you failed 1 test of 1.

FAILED--Further testing stopped.
*** Error code 1
on 5.8.9 and earlier, a patch like this fixes it:

--- lib/AnyEvent/Curl/Multi.pm.orig     Sun Oct 24 22:13:22 2010
+++ lib/AnyEvent/Curl/Multi.pm Sun Oct 24 22:13:42 2010
@@ -332,7 +332,7 @@
     $easy_h->setopt(CURLOPT_PROXY, $proxy) if $proxy;

     my $timeout = $self->{timeout} || $opts{timeout};
-    $easy_h->setopt(CURLOPT_TIMEOUT_MS, $timeout * 1000) if $timeout;
+    $easy_h->setopt(CURLOPT_TIMEOUT_MS(), $timeout * 1000) if $timeout;

     my $max_redirects = $self->{max_redirects} || $opts{max_redirects};
     if ($max_redirects > 0) {

Sat Oct 30 07:49:53 2010 james2vegas [...] aim.com - Severity Important changed to Critical

Sat Oct 30 07:49:53 2010 james2vegas [...] aim.com - Broken in 0.01 added

Sat Oct 30 07:49:53 2010 james2vegas [...] aim.com - Broken in 0.02 added

Sat Oct 30 08:13:19 2010 james2vegas [...] aim.com - Correspondence added

(way) out of date libs, please ignore me.

Sat Oct 30 08:13:20 2010 james2vegas [...] aim.com - Status changed from 'new' to 'resolved'