diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-08 18:16:02 +0000 |
|---|---|---|
| committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-10 14:38:44 +0000 |
| commit | d8b29a3430b219e3ab3dae2947a0ff22885c1b5e (patch) | |
| tree | 61f97639111bca805999c24a256a2b0b037e9c98 /lib | |
| parent | 07c4c053ee9ee2dac36d7eadd6d2558d94a7a802 (diff) | |
| download | perl-d8b29a3430b219e3ab3dae2947a0ff22885c1b5e.tar.gz | |
Field :param attributes, //= and ||= default assignments
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Op_private.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm index bb1a07296f..0bd8128e99 100644 --- a/lib/B/Op_private.pm +++ b/lib/B/Op_private.pm @@ -444,7 +444,7 @@ $bits{method_named}{0} = $bf[0]; $bits{method_redir}{0} = $bf[0]; $bits{method_redir_super}{0} = $bf[0]; $bits{method_super}{0} = $bf[0]; -$bits{methstart}{0} = $bf[0]; +@{$bits{methstart}}{7,0} = ('OPpINITFIELDS', $bf[0]); @{$bits{mkdir}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @{$bits{modulo}}{1,0} = ($bf[1], $bf[1]); @{$bits{msgctl}}{3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4]); @@ -650,6 +650,7 @@ our %defines = ( OPpHINT_STRICT_REFS => 2, OPpHUSH_VMSISH => 32, OPpINDEX_BOOLNEG => 64, + OPpINITFIELDS => 128, OPpINITFIELD_AV => 2, OPpINITFIELD_HV => 4, OPpITER_DEF => 8, @@ -763,6 +764,7 @@ our %labels = ( OPpHINT_STRICT_REFS => 'STRICT', OPpHUSH_VMSISH => 'HUSH', OPpINDEX_BOOLNEG => 'NEG', + OPpINITFIELDS => 'INITFIELDS', OPpINITFIELD_AV => 'INITFIELD_AV', OPpINITFIELD_HV => 'INITFIELD_HV', OPpITER_DEF => 'DEF', @@ -847,6 +849,7 @@ our %ops_using = ( OPpHINT_STRICT_REFS => [qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv)], OPpHUSH_VMSISH => [qw(dbstate nextstate)], OPpINDEX_BOOLNEG => [qw(index rindex)], + OPpINITFIELDS => [qw(methstart)], OPpINITFIELD_AV => [qw(initfield)], OPpITER_DEF => [qw(enteriter)], OPpITER_REVERSED => [qw(enteriter iter)], |