Fix test on old curls (e.g., CentOS 6).

FGasper · Mar 31, 2021 · 0a6e53f · 0a6e53f
1 parent 305e669
commit 0a6e53f
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 13 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl module Net::Curl::Promiser
 
+0.16
+- Fix t/Net-Curl-Promiser-Select.t with CentOS 6’s default libcurl.
+
 0.15 Wed 31 Mar 2021
 - BUG FIX: cancel_handle() and fail_handle() now immediately release
 event-loop interactions. Previously memory leak warnings happened if the

diff --git a/t/Net-Curl-Promiser-Select.t b/t/Net-Curl-Promiser-Select.t
@@ -35,25 +35,25 @@ plan tests => 2 + $ClientTest::TEST_COUNT;
     while ($promiser->handles()) {
         my $timeout = $promiser->get_timeout();
 
-        if ($timeout && $timeout != -1) {
-            ($rout, $wout, $eout) = $promiser->get_vecs();
+        ($rout, $wout, $eout) = $promiser->get_vecs();
 
-            if (!$checked_get_fds) {
-                if (grep { tr<\0><>c } $rout, $wout) {
-                    $checked_get_fds++;
+        if (!$checked_get_fds) {
+            if (grep { tr<\0><>c } $rout, $wout) {
+                $checked_get_fds++;
 
-                    my @fds = $promiser->get_fds();
+                my @fds = $promiser->get_fds();
 
-                    ok( 0 + @fds, 'get_fds() returns something when get_vecs() does' );
+                ok( 0 + @fds, 'get_fds() returns something when get_vecs() does' );
 
-                    is(
-                        0 + @fds,
-                        0 + $promiser->get_fds(),
-                        'get_fds() in scalar',
-                    );
-                }
+                is(
+                    0 + @fds,
+                    0 + $promiser->get_fds(),
+                    'get_fds() in scalar',
+                );
             }
+        }
 
+        if ($timeout && $timeout != -1) {
             my $got = select $rout, $wout, $eout, $timeout;
 
             die "select(): $!" if $got < 0;