X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=xt%2Fgit-http-backend.t;fp=xt%2Fgit-http-backend.t;h=d78fe79f585ffa20167913ff40c92d0c902b0812;hp=1f3ba0633429856e478fa28f90749e0cbc4dcf00;hb=5dbb060037ce3e3a3ba0812baa90c80eeee762af;hpb=155ee9cdaffd6232ef3c774d1a9f61d708fc8d6e

diff --git a/xt/git-http-backend.t b/xt/git-http-backend.t
index 1f3ba063..d78fe79f 100644
--- a/xt/git-http-backend.t
+++ b/xt/git-http-backend.t
@@ -1,14 +1,13 @@
+#!perl -w
 # Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # Ensure buffering behavior in -httpd doesn't cause runaway memory use
 # or data corruption
 use strict;
-use warnings;
-use Test::More;
+use v5.10.1;
 use POSIX qw(setsid);
 use PublicInbox::TestCommon;
-use PublicInbox::Spawn qw(which);
 
 my $git_dir = $ENV{GIANT_GIT_DIR};
 plan 'skip_all' => 'GIANT_GIT_DIR not defined' unless $git_dir;
@@ -77,8 +76,7 @@ SKIP: { # make sure Last-Modified + If-Modified-Since works with curl
 	my $nr = 6;
 	skip 'no description', $nr unless -f "$git_dir/description";
 	my $mtime = (stat(_))[9];
-	my $curl = which('curl');
-	skip 'curl(1) not found', $nr unless $curl;
+	my $curl = require_cmd('curl', 1) or skip 'curl(1) not found', $nr;
 	my $url = "http://$host:$port/description";
 	my $dst = "$tmpdir/desc";
 	is(xsys($curl, qw(-RsSf), '-o', $dst, $url), 0, 'curl -R');