On Wed, Nov 14, 2001 at 02:25:57PM -0600, Craig A. Berry wrote: > >Test #10 is only printed if a SIGINT is received. > > OK, I've tried to reproduce the masking of SIGINT in C, and if I've > understood what the test is trying to do and implemented it right (both > somewhat iffy) we do get the SIGINT firing at the appropriate time. With > Compaq C V6.4-005 on OpenVMS Alpha V7.2-1 the output of the test program > below is: > > Caught SIGHUP > should see this before SIGINT > Caught SIGINT > Done -- should have seen SIGINT
Sounds right. > So, if I'm on the right track, it's not the signal infrastructure that's > busted but something about the way Perl uses it, perhaps in POSIX.xs or in > the %SIG implementation. Can anyone comment on whether I *am* on the right > track, or at least send me the output of the test program on some other > system? TIA. Works fine on Linux, so I think you're on the right track. Don't know how to compile & run anything under OpenVMS to verify there. $ CC/DECC masksigs.c $ ls bar.com cpp.new envcheck.plx foo.com masksigs.obj bug. data_bug.plx envcheck2.plx io.dup sel_bug.plx cpp.aux dup_bug. envcheck3.plx masksigs.c somefile.tmp $ masksigs.obj %DCL-W-IVVERB, unrecognized command verb - check validity and spelling \MASKSIGS\ $ @masksigs.obj %DCL-E-PARSEFAIL, error parsing DCL$PATH.* -RMS-F-SYN, file specification syntax error $ mcr masksigs.obj %DCL-W-ACTIMAGE, error activating image MASKSIGS.OBJ -CLI-E-IMAGEFNF, image file not found $2$DKA0:[SYS0.SYSCOMMON.][SYSEXE]MASKSIGS.OBJ; -- Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/ Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One grep { ref and ref !~ /^[A-Z]+$/ } kill 9, @ARGV;
