In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/34770c8cd8a73ef611921faebd85df87219773ee?hp=4596752b8da44c630264e094a6e4a95082f0b07a>
- Log ----------------------------------------------------------------- commit 34770c8cd8a73ef611921faebd85df87219773ee Author: Nicholas Clark <[email protected]> Date: Sun Mar 6 13:27:43 2011 +0000 In gv.t, check that the installed $SIG{__DIE__} handler is never called. 98e007d4a6d559b3 missed adding a check that the first $SIG{__DIE__} handler was never called. While tidying, make the second $e lexical, and check that the second $SIG{__DIE__} handler remains uncalled at the end of its block. ----------------------------------------------------------------------- Summary of changes: t/op/gv.t | 8 +++++--- 1 files changed, 5 insertions(+), 3 deletions(-) diff --git a/t/op/gv.t b/t/op/gv.t index 765be7e..f796232 100644 --- a/t/op/gv.t +++ b/t/op/gv.t @@ -12,7 +12,7 @@ BEGIN { use warnings; -plan( tests => 232 ); +plan( tests => 234 ); # type coersion on assignment $foo = 'foo'; @@ -288,10 +288,11 @@ is($j[0], 1); is (ref\$v{v}, 'GLOB', 'lvalue assignment preserves globs'); my $x = readline $v{v}; is ($x, "perl\n"); + is ($e, '', '__DIE__ handler never called'); } { - $e = ''; + my $e = ''; # GLOB assignment to tied element local $SIG{__DIE__} = sub { $e = $_[0] }; sub T::TIEARRAY { bless [] => "T" } @@ -305,9 +306,10 @@ is($j[0], 1); ref\tied(@ary)->[0], 'GLOB', 'tied elem assignment preserves globs' ); - is ($e, ''); + is ($e, '', '__DIE__ handler not called'); my $x = readline $ary[0]; is($x, "rocks\n"); + is ($e, '', '__DIE__ handler never called'); } { -- Perl5 Master Repository
