tests: Accommodate c-tap-harness 4.7
[openafs.git] / tests / rx / perf-t
index fceec18..a6ce387 100755 (executable)
@@ -1,13 +1,13 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 use warnings;
 
 use Test::More tests=>4;
-use POSIX "sys_wait_h";
+use POSIX qw(:sys_wait_h :signal_h);
 
 my $port = 4000;
-my $build = $ENV{BUILD};
+my $build = $ENV{C_TAP_BUILD};
 $build = ".." if (!defined($build));
 my $rxperf = $build."/../src/tools/rxperf/rxperf";
 
@@ -37,7 +37,7 @@ is (0,
 
 kill("TERM", $pid);
 waitpid($pid, 0);
-if (WIFSIGNALED($?) && WTERMSIG($?) != POSIX::SIGTERM) {
+if (WIFSIGNALED($?) && WTERMSIG($?) != SIGTERM) {
     fail("Server died with signal ".WTERMSIG($?));
 } elsif (WIFEXITED($?) && WEXITSTATUS($?) != 0) {
     fail("Server exited with code". WEXITSTATUS($?));