diff options
| author | Karl Williamson <khw@cpan.org> | 2015-02-26 18:10:08 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-03-13 10:53:11 -0600 |
| commit | 67e8c1a43c154149e6a202cc4596586cdfcbda6b (patch) | |
| tree | 3a5df2cbe9026c89a2e69d64151cc40cc769ec14 /ext/POSIX/t | |
| parent | f227048406ab4605a8a3459c4b08d8c1aad78d86 (diff) | |
| download | perl-67e8c1a43c154149e6a202cc4596586cdfcbda6b.tar.gz | |
POSIX/t/sigaction.t: Skip failing EBCDIC test
We don't know why this is faiing, but it also fails on another IBM
product, AIX 4.2. Skip for now. The code that is failing is this:
sub hiphup {
is($_[1]->{signo}, SIGHUP, "SA_SIGINFO got right signal");
}
my $act = POSIX::SigAction->new('hiphup', 0, SA_SIGINFO);
sigaction(SIGHUP, $act);
kill 'HUP', $$;
and it leads to this:
CEE3206S The system detected a specification exception (System Completion Code=0C6).
From entry point Perl_apply at compile unit offset +00001460 at entry offset +00001460 at address 1F9B4A50.
ext/POSIX/t/sigaction ......................................... FAILED--expected 33 tests, saw 30
A stack trace with some analysis is in email <5490A778.30308@lerctr.org>
Diffstat (limited to 'ext/POSIX/t')
| -rw-r--r-- | ext/POSIX/t/sigaction.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/POSIX/t/sigaction.t b/ext/POSIX/t/sigaction.t index 1d0315f094..a0ad38450b 100644 --- a/ext/POSIX/t/sigaction.t +++ b/ext/POSIX/t/sigaction.t @@ -194,6 +194,7 @@ SKIP: { eval 'use POSIX qw(SA_SIGINFO); SA_SIGINFO'; skip("no SA_SIGINFO", 1) if $@; skip("SA_SIGINFO is broken on AIX 4.2", 1) if ($^O.$Config{osvers}) =~ m/^aix4\.2/; + skip("SA_SIGINFO is broken on os390", 1) if ($^O.$Config{osvers}) =~ m/os390/; sub hiphup { is($_[1]->{signo}, SIGHUP, "SA_SIGINFO got right signal"); } |