diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 23:12:00 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 23:12:00 -0700 |
| commit | 2227225b9a5b9c5988ec68e11274f160d8363b0f (patch) | |
| tree | acf11cfb17e954890ddd457967b5e5804c3f1480 /lib/sigtrap.t | |
| parent | 396a5c010b97dacac9ad5dd6e03dce6156d95cb7 (diff) | |
| download | perl-2227225b9a5b9c5988ec68e11274f160d8363b0f.tar.gz | |
Make the new sigtrap.t test more tolerant of OS differences
Diffstat (limited to 'lib/sigtrap.t')
| -rw-r--r-- | lib/sigtrap.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/sigtrap.t b/lib/sigtrap.t index 0469a9ac52..30f53398ac 100644 --- a/lib/sigtrap.t +++ b/lib/sigtrap.t @@ -57,13 +57,13 @@ $SIG{FAKE} = 'IGNORE'; sigtrap->import('untrapped', 'FAKE'); is( $SIG{FAKE}, 'IGNORE', 'respect existing handler set to IGNORE' ); -fresh_perl_like - ' - use sigtrap "INT"; - sub { kill "INT", $$ } -> (3) - ', - qr/\$ = main::__ANON__\(3\) called/, - { stderr => 1 }, +unlike + runperl( + switches => [ '-Msigtrap=INT' ], + prog => 'sub { kill q-INT-, $$ } -> (3)', + stderr => 1 + ), + qr/Modification of a read-only value/, "stack-trace does not try to modify read-only arguments" ; |