diff options
| author | Zefram <zefram@fysh.org> | 2017-11-29 00:13:38 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-11-29 00:13:38 +0000 |
| commit | af8bd34d16b94bde32535062ba4e88407be233a0 (patch) | |
| tree | 16624cf953260f72a8fd47d5de0fa96df8f5b4e6 /lib | |
| parent | 5086635a9f7a492b5a0c6228ecf7a22abbabeef6 (diff) | |
| download | perl-af8bd34d16b94bde32535062ba4e88407be233a0.tar.gz | |
use LOOP struct for entergiven op
This will support the upcoming change to let loop control ops apply to
"given" blocks.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Op_private.pm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm index 37497af523..e05927866a 100644 --- a/lib/B/Op_private.pm +++ b/lib/B/Op_private.pm @@ -304,7 +304,6 @@ $bits{dorassign}{0} = $bf[0]; $bits{dump}{0} = $bf[0]; $bits{each}{0} = $bf[0]; @{$bits{entereval}}{5,4,3,2,1,0} = ('OPpEVAL_RE_REPARSING', 'OPpEVAL_COPHH', 'OPpEVAL_BYTES', 'OPpEVAL_UNICODE', 'OPpEVAL_HAS_HH', $bf[0]); -$bits{entergiven}{0} = $bf[0]; $bits{enteriter}{3} = 'OPpITER_DEF'; @{$bits{entersub}}{5,4,0} = ($bf[8], $bf[8], 'OPpENTERSUB_INARGS'); $bits{entertry}{0} = $bf[0]; |