Re: [perl #24027] B::Deparse mishandles 'strict' declaration

[Rafael Garcia-Suarez]

Mark-Jason Dominus wrote:
>         perl -MO=Deparse -e 'use strict; sub foo { }'
> 
> says:
> 
>         sub foo {
>             use strict 'refs';
> 
>         }
>         use strict 'refs';
>         ;
>         -e syntax OK
> 
> 
> How did 'refs' get in there?

It's better to ask how were the other two left out :)

Currently only the 'refs' stricture hint is stored in the optree (in the
op_private field of COPs). Consequently, B::Deparse can't retrieve the
others.