use warnings;
-plan( tests => 232 );
+plan( tests => 234 );
# type coersion on assignment
$foo = 'foo';
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" }
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');
}
{