tests: posix signal constants in rx/perf test
authorMichael Meffie <mmeffie@sinenomine.net>
Tue, 30 Apr 2013 23:57:21 +0000 (19:57 -0400)
committerDerrick Brashear <shadow@your-file-system.com>
Wed, 1 May 2013 14:18:19 +0000 (07:18 -0700)
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 <buildbot@rampaginggeek.com>
Reviewed-by: Derrick Brashear <shadow@your-file-system.com>

tests/rx/perf-t

index fceec18..025d6b5 100755 (executable)
@@ -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($?));