Perl 5.12: STORE/FETCH of tie()d hash get literal stringref key stringified

[p5pRT]

Migrated from rt.perl.org#79178 (status was 'resolved')

Searchable as RT79178$

[p5pRT]

From polarcluster@gmail.com

# Perl 5.12​: STORE/FETCH of tie()d hash get literal stringref key
# stringified. This bug emerged in perl v5.12, prior perls are fine. It
# affects only literal stringref used as key for tie()d hash
# storing/fetching (the same stringref stored in variable works fine)...

tie %a, 'Foo';

$a{\'foo'} = undef; # 5.10.1 prints​: 'SCALAR'; 5.12.0 - 5.12.2 prints ''
$a{\'foo'}; # same

$stringref = \'foo';
$a{$stringref} = undef; # prints 'SCALAR'
$a{$stringref}; # prints 'SCALAR'

$a{\$scalar} = undef; # prints 'SCALAR'
$a{\$scalar}; # prints 'SCALAR'

package Foo;
sub TIEHASH { bless {}, $_[0] }
sub STORE { print ref $_[1] }
sub FETCH { print ref $_[1] }

[p5pRT]

From @cpansprout

Fixed by 04698ff.

[p5pRT]

@cpansprout - Status changed from 'new' to 'resolved'

[p5pRT]

From @cpansprout

On Sat Nov 27 07​:16​:42 2010, sprout wrote​:

Fixed by 04698ff.

But that only fixed $hash{\"ref"}.

649c173 fixes $hash{+undef_constant}, which could arguably also belong
in this ticket.

--

Father Chrysostomos

[p5pRT]

From [Unknown Contact. See original ticket]

On Sat Nov 27 07​:16​:42 2010, sprout wrote​:

Fixed by 04698ff.

But that only fixed $hash{\"ref"}.

649c173 fixes $hash{+undef_constant}, which could arguably also belong
in this ticket.

--

Father Chrysostomos