From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 12 Oct 2001 20:13:06 +0000 (+0000)
Subject: VMS pre-7.0 (which doesn't have sigaction()) uniformly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fdfddb36b71daa065b87b70cd0b0355d51a15a6c;p=p5sagit%2Fp5-mst-13.2.git

VMS pre-7.0 (which doesn't have sigaction()) uniformly
mishandles kill(), and therefore the sigaction test
should be skipped, from Charles Lane.

p4raw-id: //depot/perl@12415
---

diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t
index 1045db6..55a4d3b 100644
--- a/ext/POSIX/t/sigaction.t
+++ b/ext/POSIX/t/sigaction.t
@@ -7,8 +7,9 @@ BEGIN {
 
 BEGIN{
 	# Don't do anything if POSIX is missing, or sigaction missing.
+	use Config;
 	eval { use POSIX; };
-	if($@ || $^O eq 'MSWin32' || $^O eq 'NetWare') {
+	if($@ || $^O eq 'MSWin32' || $^O eq 'NetWare' || ($^O eq 'VMS' && !$Config{'d_sigaction'})) {
 		print "1..0\n";
 		exit 0;
 	}