[perl #6813] tie() magic upsets stack (can't last() outside of block)

A simpler demonstration:

---- BEGIN CODE ----
#!/usr/bin/env perl

use strict;
use warnings;

{
   package Tie;
   sub TIESCALAR { return bless({}, shift); }
   sub STORE { next; }
}

tie my $x, Tie::;
{ tied($x)->STORE(123); }  # warns, but works
{ $x = 123;             }  # warns and dies
---- END CODE ----

• [ID 20010412.002] tie() magic upsets stack (can't last() outsideof block) by jpinyan
• [perl #6813] tie() magic upsets stack (can't last() outside of block) by Eric Brine via RT
• Re: [perl #6813] tie() magic upsets stack (can't last() outside ofblock) by Dave Mitchell
• Re: [perl #6813] tie() magic upsets stack (can't last() outside of block) by Nicholas Clark
• Re: [ID 20010412.002] tie() magic upsets stack (can't last() outsideof block) by Rick Delaney
• Re: [ID 20010412.002] tie() magic upsets stack (can't last() outsideofblock) by Jeff Pinyan
• [perl #6813] tie() magic upsets stack (can't last() outside of block) by Alexandr Ciornii via RT