[perl #118451] Bareword hash key rejected when hash is a subroutine result and -> omitted

On Wed Jun 12 09:49:51 2013, rob.dixon@gmx.com wrote:
> 
> This is a bug report for perl from rob.dixon@gmx.com,
> generated with the help of perlbug 1.39 running under perl 5.16.2.
> 
> use strict;
> use warnings;
> use 5.016;
> 
> my $hashsub = sub {
>   { key => 'val' }
> };
> 
> # These work fine
> 
> print $hashsub->()->{key}, "\n";
> print $hashsub->(){'key'}, "\n";
> 
> # But this throws `Bareword "key" not allowed while "strict subs" in
>    use`
> 
> print $hashsub->(){key}, "\n";

Thank you for the report.  BTW, this is a duplicate of #8045.

-- 

Father Chrysostomos


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

• [perl #118451] Bareword hash key rejected when hash is a subroutine result and -> omitted by Father Chrysostomos via RT
• [perl #118451] Bareword hash key rejected when hash is a subroutine result and -> omitted by James E Keenan via RT
• [perl #118451] Bareword hash key rejected when hash is a subroutine result and -> omitted by Rob Dixon