This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Try once more to fix sigtrap.t
authorFather Chrysostomos <sprout@cpan.org>
Sat, 25 Sep 2010 18:15:35 +0000 (11:15 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 25 Sep 2010 18:15:35 +0000 (11:15 -0700)
commit0ec7d39d922fe99b200d649d3831d277fb8140c6
tree90ecc584247a732df8a224772f8cf812961ef919
parent9fb1bf9d6077e18c69220b2091fc278b2e87b3fe
Try once more to fix sigtrap.t

It produces output like this:
lib/sigtrap....................................................sh: line 1: 66151 Abort trap              ./perl "-I../lib" -Msigtrap=INT -e 'sub { kill q-INT-, $$ } -> (3)' 2>&1
ok

And is effectively skipped on Windows.

So this new revision of the test
• calls the signal handler directly, instead of trying to trigger it
  with a signal and
• overrides kill globally to stop sigtrap.pm from aborting.
lib/sigtrap.t