t: avoid "subtest" for Perl 5.10.1 compatibility

[public-inbox.git] / t / ds-leak.t

diff --git a/t/ds-leak.t b/t/ds-leak.t
index 9e3243e92c6118a3d998560d832af4271c3634ed..dd8446dcd1f77e0f9a2d167ab0c057c917a443bb 100644 (file)
--- a/t/ds-leak.t
+++ b/t/ds-leak.t
@@ -8,7 +8,7 @@ use warnings;
 use Test::More;
 use_ok 'PublicInbox::DS';
 
-subtest('close-on-exec for epoll and kqueue' => sub {
+if ('close-on-exec for epoll and kqueue') {
        use PublicInbox::Spawn qw(spawn);
        my $pid;
        my $evfd_re = qr/(?:kqueue|eventpoll)/i;
@@ -29,7 +29,7 @@ subtest('close-on-exec for epoll and kqueue' => sub {
                waitpid($pid, 0);
        }
        PublicInbox::DS->Reset;
-});
+}
 
 SKIP: {
        # not bothering with BSD::Resource