diff options
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)], |