op.c:10706: OP *Perl_ck_refassign(OP *): Assertion `left->op_type == OP_SREFGEN' failed

[p5pRT]

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

Searchable as RT130578$

[p5pRT]

From @geeknik

Triggered with Perl v5.25.8-195-gc1b4bd9.

./perl -e '\$0=~y((()))00=0'
perl​: op.c​:10706​: OP *Perl_ck_refassign(OP *)​: Assertion `left->op_type ==
OP_SREFGEN' failed.
Aborted

[p5pRT]

From @tonycoz

On Tue, 17 Jan 2017 15​:08​:56 -0800, brian.carpenter@​gmail.com wrote​:

Triggered with Perl v5.25.8-195-gc1b4bd9.

./perl -e '\$0=~y((()))00=0'
perl​: op.c​:10706​: OP *Perl_ck_refassign(OP *)​: Assertion `left->op_type ==
OP_SREFGEN' failed.
Aborted

This can be simplified to​:

./perl -e '\$0=~y/x//=0'

The op tree where at the point of the assertion is​:

#4 0x00000000004897b8 in Perl_ck_refassign (o=0x61900000bd00) at op.c​:10719
10719 assert (left->op_type == OP_SREFGEN);
(gdb) call Perl_op_dump(o)
{
1 TYPE = refassign ===> NULL
  FLAGS = (UNKNOWN,KIDS,STACKED,SLABBED)
  PRIVATE = (SV,0x2)
  {
2 TYPE = const ===> 2
  FLAGS = (SCALAR,SLABBED,MORESIB)
  SV = IV(0)
  }
  {
3 TYPE = null ===> NULL
  FLAGS = (UNKNOWN,KIDS,STACKED,SLABBED)
  PRIVATE = (0x2)
  {
4 TYPE = srefgen ===> NULL
  FLAGS = (SCALAR,KIDS,SLABBED,MORESIB)
  PRIVATE = (0x1)
  {
5 TYPE = null ===> NULL
  (was list)
  FLAGS = (LIST,KIDS,REF,MOD,SLABBED)
  {
6 TYPE = rv2sv ===> NULL
  FLAGS = (SCALAR,KIDS,REF,MOD,SLABBED)
  PRIVATE = (0x1)
  {
7 TYPE = gv ===> 7
  FLAGS = (SCALAR,SLABBED)
  GV = main​::0
  }
  }
  }
  }
  {
8 TYPE = trans ===> 8
  FLAGS = (SCALAR,STACKED,SLABBED)
  PRIVATE = (IDENT)
  }
  }
}

Tony

[p5pRT]

The RT System itself - Status changed from 'new' to 'open'

[p5pRT]

From zefram@fysh.org

Fixed in commit 38a3df7.

-zefram

[p5pRT]

@xsawyerx - Status changed from 'open' to 'pending release'

[p5pRT]

From @khwilliamson

Thank you for filing this report. You have helped make Perl better.

With the release yesterday of Perl 5.28.0, this and 185 other issues have been
resolved.

Perl 5.28.0 may be downloaded via​:
https://metacpan.org/release/XSAWYERX/perl-5.28.0

If you find that the problem persists, feel free to reopen this ticket.

[p5pRT]

@khwilliamson - Status changed from 'pending release' to 'resolved'