In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/2227225b9a5b9c5988ec68e11274f160d8363b0f?hp=396a5c010b97dacac9ad5dd6e03dce6156d95cb7>
- Log -----------------------------------------------------------------
commit 2227225b9a5b9c5988ec68e11274f160d8363b0f
Author: Father Chrysostomos <spr...@cpan.org>
Date: Fri Sep 24 23:12:00 2010 -0700
Make the new sigtrap.t test more tolerant of OS differences
-----------------------------------------------------------------------
Summary of changes:
lib/sigtrap.t | 14 +++++++-------
1 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/lib/sigtrap.t b/lib/sigtrap.t
index 0469a9a..30f5339 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"
;
--
Perl5 Master Repository
