From b88ff242df03f7332945793422e7c16c423b7e76 Mon Sep 17 00:00:00 2001 From: Michael Meffie Date: Tue, 30 Apr 2013 19:57:21 -0400 Subject: [PATCH] tests: posix signal constants in rx/perf test Export the posix signal constants in the rx/perf perl test. Fixes a perl syntax error on solaris. Change-Id: Iaad361b8533787f9ad97fa00221e01e687f50723 Reviewed-on: http://gerrit.openafs.org/9836 Tested-by: BuildBot Reviewed-by: Derrick Brashear --- tests/rx/perf-t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/rx/perf-t b/tests/rx/perf-t index fceec181d..025d6b5e3 100755 --- a/tests/rx/perf-t +++ b/tests/rx/perf-t @@ -4,7 +4,7 @@ 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}; @@ -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($?)); -- 2.39.5