Re: [ID 20010412.002] tie() magic upsets stack (can't last() outsideof block)

jpinyan@sushi.riskgrades.com wrote:
> 
[snip]
> sub STORE {
>   my ($self, $val) = @_;
>   local $_ = $self->{VAL} = $val;
>   $self->{CODE}->() ? $_ : last;   # <-- bad news
> }
[snip]
> When I run this code, I'm told I can't call last() from outside a loop
> block.

That is only a warning.  Your code should still work as you expect.  One
other way to suppress the warning (not mentioned on fwp) would be to put

    no warnings 'exiting';

right before the line with "last".

-- 
Rick Delaney
rick.delaney@home.com

• [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