[perl #115254] Dead code in leave_scope?

On Thu Oct 18 07:37:46 2012, rurban wrote:
> There is one edge case remaining, which prevents us from removing
> those two lines.
> 
> ./miniperl t/op/sort.t
> ...
> ok 143 - in-place sort of read-only array
> Modification of a read-only value attempted at t/op/sort.t line 786.
> and it dies, instead of continuing.

But, still, those two lines are wrong (or the first one of them):

$ ./perl -Ilib -e '{ my $x = 3; Internals::SvREADONLY $x, 1; () }'
$ ./perl -Ilib -e '{ my $x = ${qr//}; Internals::SvREADONLY $x, 1; () }'
Modification of a read-only value attempted at -e line 1.

It may or may not die, depending on the assigned value.

-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=115254

• [perl #115254] Dead code in leave_scope? by Father Chrysostomos via RT
• [perl #115254] Dead code in leave_scope? by Father Chrysostomos via RT