This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS pre-7.0 (which doesn't have sigaction()) uniformly
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 12 Oct 2001 20:13:06 +0000 (20:13 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 12 Oct 2001 20:13:06 +0000 (20:13 +0000)
mishandles kill(), and therefore the sigaction test
should be skipped, from Charles Lane.

p4raw-id: //depot/perl@12415

ext/POSIX/t/sigaction.t

index 1045db6..55a4d3b 100644 (file)
@@ -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;
        }