This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add missing op_private labels to Concise etc
authorDavid Mitchell <davem@iabyn.com>
Fri, 5 Sep 2014 16:40:07 +0000 (17:40 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 10 Sep 2014 13:25:05 +0000 (14:25 +0100)
Concise wasn't decoding a few op_private bits. I spotted this during my
jumbo regen/op_private commit, but deferred fixing them up to a separate
commit since they change the output expected in a bunch of Concise tests.

Specifically, these have now been added:

    OPpHINT_STRICT_REFS  => STRICT
    OPpITER_DEF          => DEF
    OPpEVAL_RE_REPARSING => REPARSE

ext/B/t/f_map.t
ext/B/t/optree_samples.t
ext/B/t/optree_specials.t
lib/B/Op_private.pm
opcode.h
regen/op_private

index a7a9c26..88b871c 100644 (file)
@@ -170,7 +170,7 @@ checkOptree(note   => q{},
 # c  <1> rv2av[t6] sKRM/1
 # d  <#> gv[*_] s
 # e  <1> rv2gv sKRM/1
-# f  <{> enteriter(next->q last->t redo->g) lKS/8
+# f  <{> enteriter(next->q last->t redo->g) lKS/DEF
 # r  <0> iter s
 # s  <|> and(other->g) K/1
 # g      <;> nextstate(main 475 (eval 10):1) v:{
@@ -204,7 +204,7 @@ EOT_EOT
 # c  <1> rv2av[t3] sKRM/1
 # d  <$> gv(*_) s
 # e  <1> rv2gv sKRM/1
-# f  <{> enteriter(next->q last->t redo->g) lKS/8
+# f  <{> enteriter(next->q last->t redo->g) lKS/DEF
 # r  <0> iter s
 # s  <|> and(other->g) K/1
 # g      <;> nextstate(main 559 (eval 15):1) v:{
index 2a9c010..61b0d18 100644 (file)
@@ -240,7 +240,7 @@ checkOptree ( name  => '-exec sub { foreach (1..10) {print "foo $_"} }',
 # 3  <$> const[IV 1] s
 # 4  <$> const[IV 10] s
 # 5  <#> gv[*_] s
-# 6  <{> enteriter(next->d last->g redo->7) lKS/8
+# 6  <{> enteriter(next->d last->g redo->7) lKS/DEF
 # e  <0> iter s
 # f  <|> and(other->7) K/1
 # 7      <;> nextstate(main 442 optree.t:158) v:>,<,%
@@ -259,7 +259,7 @@ EOT_EOT
 # 3  <$> const(IV 1) s
 # 4  <$> const(IV 10) s
 # 5  <$> gv(*_) s
-# 6  <{> enteriter(next->d last->g redo->7) lKS/8
+# 6  <{> enteriter(next->d last->g redo->7) lKS/DEF
 # e  <0> iter s
 # f  <|> and(other->7) K/1
 # 7      <;> nextstate(main 443 optree_samples.t:182) v:>,<,%
@@ -283,7 +283,7 @@ checkOptree ( name  => '-basic sub { print "foo $_" foreach (1..10) }',
 # -     <@> lineseq KP ->g
 # 1        <;> nextstate(main 445 optree.t:167) v:>,<,% ->2
 # f        <2> leaveloop K/2 ->g
-# 6           <{> enteriter(next->c last->f redo->7) lKS/8 ->d
+# 6           <{> enteriter(next->c last->f redo->7) lKS/DEF ->d
 # -              <0> ex-pushmark s ->2
 # -              <1> ex-list lK ->5
 # 2                 <0> pushmark s ->3
@@ -308,7 +308,7 @@ EOT_EOT
 # -     <@> lineseq KP ->g
 # 1        <;> nextstate(main 446 optree_samples.t:192) v:>,<,% ->2
 # f        <2> leaveloop K/2 ->g
-# 6           <{> enteriter(next->c last->f redo->7) lKS/8 ->d
+# 6           <{> enteriter(next->c last->f redo->7) lKS/DEF ->d
 # -              <0> ex-pushmark s ->2
 # -              <1> ex-list lK ->5
 # 2                 <0> pushmark s ->3
@@ -341,7 +341,7 @@ checkOptree ( name  => '-exec -e foreach (1..10) {print qq{foo $_}}',
 # 4  <$> const[IV 1] s
 # 5  <$> const[IV 10] s
 # 6  <#> gv[*_] s
-# 7  <{> enteriter(next->e last->h redo->8) lKS/8
+# 7  <{> enteriter(next->e last->h redo->8) lKS/DEF
 # f  <0> iter s
 # g  <|> and(other->8) vK/1
 # 8      <;> nextstate(main 1 -e:1) v:>,<,%
@@ -361,7 +361,7 @@ EOT_EOT
 # 4  <$> const(IV 1) s
 # 5  <$> const(IV 10) s
 # 6  <$> gv(*_) s
-# 7  <{> enteriter(next->e last->h redo->8) lKS/8
+# 7  <{> enteriter(next->e last->h redo->8) lKS/DEF
 # f  <0> iter s
 # g  <|> and(other->8) vK/1
 # 8      <;> nextstate(main 1 -e:1) v:>,<,%
@@ -386,7 +386,7 @@ checkOptree ( name  => '-exec sub { print "foo $_" foreach (1..10) }',
 # 3  <$> const[IV 1] s
 # 4  <$> const[IV 10] s
 # 5  <#> gv[*_] s
-# 6  <{> enteriter(next->c last->f redo->7) lKS/8
+# 6  <{> enteriter(next->c last->f redo->7) lKS/DEF
 # d  <0> iter s
 # e  <|> and(other->7) K/1
 # 7      <0> pushmark s
@@ -404,7 +404,7 @@ EOT_EOT
 # 3  <$> const(IV 1) s
 # 4  <$> const(IV 10) s
 # 5  <$> gv(*_) s
-# 6  <{> enteriter(next->c last->f redo->7) lKS/8
+# 6  <{> enteriter(next->c last->f redo->7) lKS/DEF
 # d  <0> iter s
 # e  <|> and(other->7) K/1
 # 7      <0> pushmark s
@@ -530,7 +530,7 @@ checkOptree ( name  => '%h=(); for $_(@a){$h{getkey($_)} = $_}',
 # a  <1> rv2av[t6] sKRM/1
 # b  <#> gv[*_] s
 # c  <1> rv2gv sKRM/1
-# d  <{> enteriter(next->o last->r redo->e) lKS/8
+# d  <{> enteriter(next->o last->r redo->e) lKS/DEF
 # p  <0> iter s
 # q  <|> and(other->e) K/1
 # e      <;> nextstate(main 505 (eval 24):1) v:{
@@ -561,7 +561,7 @@ EOT_EOT
 # a  <1> rv2av[t3] sKRM/1
 # b  <$> gv(*_) s
 # c  <1> rv2gv sKRM/1
-# d  <{> enteriter(next->o last->r redo->e) lKS/8
+# d  <{> enteriter(next->o last->r redo->e) lKS/DEF
 # p  <0> iter s
 # q  <|> and(other->e) K/1
 # e      <;> nextstate(main 505 (eval 24):1) v:{
index 3cf354c..414fa79 100644 (file)
@@ -48,7 +48,7 @@ checkOptree ( name    => 'BEGIN',
 # 4        <;> nextstate(B::Concise -275 Concise.pm:356) v:*,&,{,x*,x&,x$,$ ->5
 # -        <@> lineseq K ->-
 # -           <0> null ->5
-# 9           <1> entersub[t1] KS*/TARG,2 ->a
+# 9           <1> entersub[t1] KS*/TARG,STRICT ->a
 # 5              <0> pushmark s ->6
 # 6              <$> const[PV "strict"] sM ->7
 # 7              <$> const[PV "refs"] sM ->8
@@ -62,7 +62,7 @@ checkOptree ( name    => 'BEGIN',
 # e        <;> nextstate(B::Concise -265 Concise.pm:367) v:*,&,x*,x&,x$,$ ->f
 # -        <@> lineseq K ->-
 # -           <0> null ->f
-# j           <1> entersub[t1] KS*/TARG,2 ->k
+# j           <1> entersub[t1] KS*/TARG,STRICT ->k
 # f              <0> pushmark s ->g
 # g              <$> const[PV "strict"] sM ->h
 # h              <$> const[PV "refs"] sM ->i
@@ -76,7 +76,7 @@ checkOptree ( name    => 'BEGIN',
 # o        <;> nextstate(B::Concise -254 Concise.pm:386) v:*,&,{,x*,x&,x$,$ ->p
 # -        <@> lineseq K ->-
 # -           <0> null ->p
-# t           <1> entersub[t1] KS*/TARG,2 ->u
+# t           <1> entersub[t1] KS*/TARG,STRICT ->u
 # p              <0> pushmark s ->q
 # q              <$> const[PV "warnings"] sM ->r
 # r              <$> const[PV "qw"] sM ->s
@@ -98,7 +98,7 @@ EOT_EOT
 # 4        <;> nextstate(B::Concise -275 Concise.pm:356) v:*,&,{,x*,x&,x$,$ ->5
 # -        <@> lineseq K ->-
 # -           <0> null ->5
-# 9           <1> entersub[t1] KS*/TARG,2 ->a
+# 9           <1> entersub[t1] KS*/TARG,STRICT ->a
 # 5              <0> pushmark s ->6
 # 6              <$> const(PV "strict") sM ->7
 # 7              <$> const(PV "refs") sM ->8
@@ -112,7 +112,7 @@ EOT_EOT
 # e        <;> nextstate(B::Concise -265 Concise.pm:367) v:*,&,x*,x&,x$,$ ->f
 # -        <@> lineseq K ->-
 # -           <0> null ->f
-# j           <1> entersub[t1] KS*/TARG,2 ->k
+# j           <1> entersub[t1] KS*/TARG,STRICT ->k
 # f              <0> pushmark s ->g
 # g              <$> const(PV "strict") sM ->h
 # h              <$> const(PV "refs") sM ->i
@@ -126,7 +126,7 @@ EOT_EOT
 # o        <;> nextstate(B::Concise -254 Concise.pm:386) v:*,&,{,x*,x&,x$,$ ->p
 # -        <@> lineseq K ->-
 # -           <0> null ->p
-# t           <1> entersub[t1] KS*/TARG,2 ->u
+# t           <1> entersub[t1] KS*/TARG,STRICT ->u
 # p              <0> pushmark s ->q
 # q              <$> const(PV "warnings") sM ->r
 # r              <$> const(PV "qw") sM ->s
@@ -246,7 +246,7 @@ checkOptree ( name  => 'all of BEGIN END INIT CHECK UNITCHECK -exec',
 # 6  <$> const[PV "strict"] sM
 # 7  <$> const[PV "refs"] sM
 # 8  <$> method_named[PV "unimport"] 
-# 9  <1> entersub[t1] KS*/TARG,2
+# 9  <1> entersub[t1] KS*/TARG,STRICT
 # a  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 2:
 # b  <;> nextstate(B::Concise -265 Concise.pm:367) v:*,&,x*,x&,x$,$
@@ -257,7 +257,7 @@ checkOptree ( name  => 'all of BEGIN END INIT CHECK UNITCHECK -exec',
 # g  <$> const[PV "strict"] sM
 # h  <$> const[PV "refs"] sM
 # i  <$> method_named[PV "unimport"] 
-# j  <1> entersub[t1] KS*/TARG,2
+# j  <1> entersub[t1] KS*/TARG,STRICT
 # k  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 3:
 # l  <;> nextstate(B::Concise -254 Concise.pm:386) v:*,&,{,x*,x&,x$,$
@@ -268,7 +268,7 @@ checkOptree ( name  => 'all of BEGIN END INIT CHECK UNITCHECK -exec',
 # q  <$> const[PV "warnings"] sM
 # r  <$> const[PV "qw"] sM
 # s  <$> method_named[PV "unimport"] 
-# t  <1> entersub[t1] KS*/TARG,2
+# t  <1> entersub[t1] KS*/TARG,STRICT
 # u  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 4:
 # v  <;> nextstate(main 2 -e:1) v:>,<,%,{
@@ -305,7 +305,7 @@ EOT_EOT
 # 6  <$> const(PV "strict") sM
 # 7  <$> const(PV "refs") sM
 # 8  <$> method_named(PV "unimport") 
-# 9  <1> entersub[t1] KS*/TARG,2
+# 9  <1> entersub[t1] KS*/TARG,STRICT
 # a  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 2:
 # b  <;> nextstate(B::Concise -265 Concise.pm:367) v:*,&,x*,x&,x$,$
@@ -316,7 +316,7 @@ EOT_EOT
 # g  <$> const(PV "strict") sM
 # h  <$> const(PV "refs") sM
 # i  <$> method_named(PV "unimport") 
-# j  <1> entersub[t1] KS*/TARG,2
+# j  <1> entersub[t1] KS*/TARG,STRICT
 # k  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 3:
 # l  <;> nextstate(B::Concise -254 Concise.pm:386) v:*,&,{,x*,x&,x$,$
@@ -327,7 +327,7 @@ EOT_EOT
 # q  <$> const(PV "warnings") sM
 # r  <$> const(PV "qw") sM
 # s  <$> method_named(PV "unimport") 
-# t  <1> entersub[t1] KS*/TARG,2
+# t  <1> entersub[t1] KS*/TARG,STRICT
 # u  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 4:
 # v  <;> nextstate(main 2 -e:1) v:>,<,%,{
@@ -374,7 +374,7 @@ checkOptree ( name  => 'regression test for patch 25352',
 # 6  <$> const[PV "strict"] sM
 # 7  <$> const[PV "refs"] sM
 # 8  <$> method_named[PV "unimport"] 
-# 9  <1> entersub[t1] KS*/TARG,2
+# 9  <1> entersub[t1] KS*/TARG,STRICT
 # a  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 2:
 # b  <;> nextstate(B::Concise -265 Concise.pm:367) v:*,&,x*,x&,x$,$
@@ -385,7 +385,7 @@ checkOptree ( name  => 'regression test for patch 25352',
 # g  <$> const[PV "strict"] sM
 # h  <$> const[PV "refs"] sM
 # i  <$> method_named[PV "unimport"] 
-# j  <1> entersub[t1] KS*/TARG,2
+# j  <1> entersub[t1] KS*/TARG,STRICT
 # k  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 3:
 # l  <;> nextstate(B::Concise -254 Concise.pm:386) v:*,&,{,x*,x&,x$,$
@@ -396,7 +396,7 @@ checkOptree ( name  => 'regression test for patch 25352',
 # q  <$> const[PV "warnings"] sM
 # r  <$> const[PV "qw"] sM
 # s  <$> method_named[PV "unimport"] 
-# t  <1> entersub[t1] KS*/TARG,2
+# t  <1> entersub[t1] KS*/TARG,STRICT
 # u  <1> leavesub[1 ref] K/REFC,1
 EOT_EOT
 # BEGIN 1:
@@ -408,7 +408,7 @@ EOT_EOT
 # 6  <$> const(PV "strict") sM
 # 7  <$> const(PV "refs") sM
 # 8  <$> method_named(PV "unimport") 
-# 9  <1> entersub[t1] KS*/TARG,2
+# 9  <1> entersub[t1] KS*/TARG,STRICT
 # a  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 2:
 # b  <;> nextstate(B::Concise -265 Concise.pm:367) v:*,&,x*,x&,x$,$
@@ -419,7 +419,7 @@ EOT_EOT
 # g  <$> const(PV "strict") sM
 # h  <$> const(PV "refs") sM
 # i  <$> method_named(PV "unimport") 
-# j  <1> entersub[t1] KS*/TARG,2
+# j  <1> entersub[t1] KS*/TARG,STRICT
 # k  <1> leavesub[1 ref] K/REFC,1
 # BEGIN 3:
 # l  <;> nextstate(B::Concise -254 Concise.pm:386) v:*,&,{,x*,x&,x$,$
@@ -430,6 +430,6 @@ EOT_EOT
 # q  <$> const(PV "warnings") sM
 # r  <$> const(PV "qw") sM
 # s  <$> method_named(PV "unimport") 
-# t  <1> entersub[t1] KS*/TARG,2
+# t  <1> entersub[t1] KS*/TARG,STRICT
 # u  <1> leavesub[1 ref] K/REFC,1
 EONT_EONT
index 08ab0f4..e038bc2 100644 (file)
@@ -636,7 +636,7 @@ our %labels = (
     OPpEVAL_BYTES            => 'BYTES',
     OPpEVAL_COPHH            => 'COPHH',
     OPpEVAL_HAS_HH           => 'HAS_HH',
-    OPpEVAL_RE_REPARSING     => '-',
+    OPpEVAL_RE_REPARSING     => 'REPARSE',
     OPpEVAL_UNICODE          => 'UNI',
     OPpEXISTS_SUB            => 'SUB',
     OPpFLIP_LINENUM          => 'LINENUM',
@@ -647,9 +647,9 @@ our %labels = (
     OPpGREP_LEX              => 'GREPLEX',
     OPpHINT_M_VMSISH_STATUS  => 'VMSISH_STATUS',
     OPpHINT_M_VMSISH_TIME    => 'VMSISH_TIME',
-    OPpHINT_STRICT_REFS      => '-',
+    OPpHINT_STRICT_REFS      => 'STRICT',
     OPpHUSH_VMSISH           => 'HUSH',
-    OPpITER_DEF              => '-',
+    OPpITER_DEF              => 'DEF',
     OPpITER_REVERSED         => 'REVERSED',
     OPpLIST_GUESSED          => 'GUESSED',
     OPpLVALUE                => 'LV',
index ea6ae85..a5abfb8 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -2238,6 +2238,7 @@ EXTCONST char PL_op_private_labels[] = {
     'C','O','P','H','H','\0',
     'C','V','2','G','V','\0',
     'D','B','G','\0',
+    'D','E','F','\0',
     'D','E','L','\0',
     'D','E','R','E','F','1','\0',
     'D','E','R','E','F','2','\0',
@@ -2280,6 +2281,7 @@ EXTCONST char PL_op_private_labels[] = {
     'O','U','T','C','R','\0',
     'Q','S','O','R','T','\0',
     'R','E','F','C','\0',
+    'R','E','P','A','R','S','E','\0',
     'R','E','P','L','1','S','T','\0',
     'R','E','V','\0',
     'R','E','V','E','R','S','E','D','\0',
@@ -2320,7 +2322,7 @@ EXTCONST I16 PL_op_private_bitfields[] = {
     0, 8, -1,
     0, 8, -1,
     0, 8, -1,
-    5, -1, 1, 120, 2, 127, 3, 134, -1,
+    5, -1, 1, 124, 2, 131, 3, 138, -1,
 
 };
 
@@ -2727,71 +2729,71 @@ EXTCONST I16  PL_op_private_bitdef_ix[] = {
 
 EXTCONST U16  PL_op_private_bitdefs[] = {
     /* scalar        */ 0x0003,
-    /* pushmark      */ 0x253c, 0x3631,
+    /* pushmark      */ 0x25bc, 0x37b1,
     /* wantarray     */ 0x00bd,
-    /* const         */ 0x0358, 0x12b0, 0x36ec, 0x31a8, 0x2905,
-    /* gvsv          */ 0x253c, 0x2a51,
-    /* gv            */ 0x11b5,
+    /* const         */ 0x0358, 0x1330, 0x386c, 0x3328, 0x2985,
+    /* gvsv          */ 0x25bc, 0x2ad1,
+    /* gv            */ 0x1235,
     /* gelem         */ 0x0067,
-    /* padsv         */ 0x253c, 0x025a, 0x3631,
-    /* padav         */ 0x253c, 0x3630, 0x262c, 0x3329,
-    /* padhv         */ 0x253c, 0x0578, 0x04d4, 0x3630, 0x262c, 0x3329,
-    /* pushre        */ 0x30f9,
-    /* rv2gv         */ 0x253c, 0x025a, 0x13b0, 0x262c, 0x2828, 0x0104, 0x0003,
-    /* rv2sv         */ 0x253c, 0x025a, 0x2a50, 0x0104, 0x0003,
-    /* av2arylen     */ 0x262c, 0x0003,
-    /* rv2cv         */ 0x279c, 0x0898, 0x0ad0, 0x028c, 0x3848, 0x0104, 0x0003,
+    /* padsv         */ 0x25bc, 0x025a, 0x37b1,
+    /* padav         */ 0x25bc, 0x37b0, 0x26ac, 0x34a9,
+    /* padhv         */ 0x25bc, 0x0578, 0x04d4, 0x37b0, 0x26ac, 0x34a9,
+    /* pushre        */ 0x3279,
+    /* rv2gv         */ 0x25bc, 0x025a, 0x1430, 0x26ac, 0x28a8, 0x3864, 0x0003,
+    /* rv2sv         */ 0x25bc, 0x025a, 0x2ad0, 0x3864, 0x0003,
+    /* av2arylen     */ 0x26ac, 0x0003,
+    /* rv2cv         */ 0x281c, 0x0898, 0x0ad0, 0x028c, 0x39c8, 0x3864, 0x0003,
     /* prototype     */ 0x0003,
     /* refgen        */ 0x0003,
     /* srefgen       */ 0x0003,
     /* ref           */ 0x0003,
     /* bless         */ 0x012f,
-    /* backtick      */ 0x2c3c, 0x2b58, 0x20b4, 0x1ff0, 0x0003,
+    /* backtick      */ 0x2cbc, 0x2bd8, 0x2134, 0x2070, 0x0003,
     /* glob          */ 0x012f,
     /* readline      */ 0x0003,
     /* regcmaybe     */ 0x0003,
     /* regcreset     */ 0x0003,
     /* regcomp       */ 0x0003,
-    /* match         */ 0x30f8, 0x38f1,
-    /* qr            */ 0x30f9,
-    /* subst         */ 0x30f8, 0x38f1,
-    /* substcont     */ 0x30f8, 0x0003,
-    /* trans         */ 0x0b5c, 0x1a38, 0x07d4, 0x38f0, 0x346c, 0x1d68, 0x01e4, 0x0141,
-    /* transr        */ 0x0b5c, 0x1a38, 0x07d4, 0x38f0, 0x346c, 0x1d68, 0x01e4, 0x0141,
+    /* match         */ 0x3278, 0x3a71,
+    /* qr            */ 0x3279,
+    /* subst         */ 0x3278, 0x3a71,
+    /* substcont     */ 0x3278, 0x0003,
+    /* trans         */ 0x0bdc, 0x1ab8, 0x07d4, 0x3a70, 0x35ec, 0x1de8, 0x01e4, 0x0141,
+    /* transr        */ 0x0bdc, 0x1ab8, 0x07d4, 0x3a70, 0x35ec, 0x1de8, 0x01e4, 0x0141,
     /* sassign       */ 0x0a1c, 0x03f8, 0x0067,
-    /* aassign       */ 0x06f8, 0x262c, 0x0067,
+    /* aassign       */ 0x06f8, 0x26ac, 0x0067,
     /* chop          */ 0x0003,
     /* schop         */ 0x0003,
-    /* chomp         */ 0x38f0, 0x0003,
-    /* schomp        */ 0x38f0, 0x0003,
+    /* chomp         */ 0x3a70, 0x0003,
+    /* schomp        */ 0x3a70, 0x0003,
     /* defined       */ 0x0003,
     /* undef         */ 0x0003,
     /* study         */ 0x0003,
-    /* pos           */ 0x253c, 0x262c, 0x0003,
+    /* pos           */ 0x25bc, 0x26ac, 0x0003,
     /* preinc        */ 0x0003,
     /* i_preinc      */ 0x0003,
     /* predec        */ 0x0003,
     /* i_predec      */ 0x0003,
     /* postinc       */ 0x0003,
-    /* i_postinc     */ 0x38f0, 0x0003,
+    /* i_postinc     */ 0x3a70, 0x0003,
     /* postdec       */ 0x0003,
-    /* i_postdec     */ 0x38f0, 0x0003,
-    /* pow           */ 0x38f0, 0x0067,
-    /* multiply      */ 0x38f0, 0x0067,
-    /* i_multiply    */ 0x38f0, 0x0067,
-    /* divide        */ 0x38f0, 0x0067,
-    /* i_divide      */ 0x38f0, 0x0067,
-    /* modulo        */ 0x38f0, 0x0067,
-    /* i_modulo      */ 0x38f0, 0x0067,
-    /* repeat        */ 0x0e38, 0x0067,
-    /* add           */ 0x38f0, 0x0067,
-    /* i_add         */ 0x38f0, 0x0067,
-    /* subtract      */ 0x38f0, 0x0067,
-    /* i_subtract    */ 0x38f0, 0x0067,
-    /* concat        */ 0x38f0, 0x0067,
-    /* stringify     */ 0x38f0, 0x012f,
-    /* left_shift    */ 0x38f0, 0x0067,
-    /* right_shift   */ 0x38f0, 0x0067,
+    /* i_postdec     */ 0x3a70, 0x0003,
+    /* pow           */ 0x3a70, 0x0067,
+    /* multiply      */ 0x3a70, 0x0067,
+    /* i_multiply    */ 0x3a70, 0x0067,
+    /* divide        */ 0x3a70, 0x0067,
+    /* i_divide      */ 0x3a70, 0x0067,
+    /* modulo        */ 0x3a70, 0x0067,
+    /* i_modulo      */ 0x3a70, 0x0067,
+    /* repeat        */ 0x0eb8, 0x0067,
+    /* add           */ 0x3a70, 0x0067,
+    /* i_add         */ 0x3a70, 0x0067,
+    /* subtract      */ 0x3a70, 0x0067,
+    /* i_subtract    */ 0x3a70, 0x0067,
+    /* concat        */ 0x3a70, 0x0067,
+    /* stringify     */ 0x3a70, 0x012f,
+    /* left_shift    */ 0x3a70, 0x0067,
+    /* right_shift   */ 0x3a70, 0x0067,
     /* lt            */ 0x0067,
     /* i_lt          */ 0x0067,
     /* gt            */ 0x0067,
@@ -2817,110 +2819,110 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* bit_xor       */ 0x0067,
     /* bit_or        */ 0x0067,
     /* negate        */ 0x0003,
-    /* i_negate      */ 0x38f0, 0x0003,
+    /* i_negate      */ 0x3a70, 0x0003,
     /* not           */ 0x0003,
     /* complement    */ 0x0003,
     /* smartmatch    */ 0x0067,
-    /* atan2         */ 0x38f0, 0x012f,
-    /* sin           */ 0x38f0, 0x0003,
-    /* cos           */ 0x38f0, 0x0003,
-    /* rand          */ 0x38f0, 0x012f,
-    /* srand         */ 0x38f0, 0x012f,
-    /* exp           */ 0x38f0, 0x0003,
-    /* log           */ 0x38f0, 0x0003,
-    /* sqrt          */ 0x38f0, 0x0003,
-    /* int           */ 0x38f0, 0x0003,
-    /* hex           */ 0x38f0, 0x0003,
-    /* oct           */ 0x38f0, 0x0003,
-    /* abs           */ 0x38f0, 0x0003,
-    /* length        */ 0x38f0, 0x0003,
-    /* substr        */ 0x253c, 0x2e50, 0x262c, 0x00cb,
-    /* vec           */ 0x253c, 0x262c, 0x0067,
-    /* index         */ 0x38f0, 0x012f,
-    /* rindex        */ 0x38f0, 0x012f,
+    /* atan2         */ 0x3a70, 0x012f,
+    /* sin           */ 0x3a70, 0x0003,
+    /* cos           */ 0x3a70, 0x0003,
+    /* rand          */ 0x3a70, 0x012f,
+    /* srand         */ 0x3a70, 0x012f,
+    /* exp           */ 0x3a70, 0x0003,
+    /* log           */ 0x3a70, 0x0003,
+    /* sqrt          */ 0x3a70, 0x0003,
+    /* int           */ 0x3a70, 0x0003,
+    /* hex           */ 0x3a70, 0x0003,
+    /* oct           */ 0x3a70, 0x0003,
+    /* abs           */ 0x3a70, 0x0003,
+    /* length        */ 0x3a70, 0x0003,
+    /* substr        */ 0x25bc, 0x2fd0, 0x26ac, 0x00cb,
+    /* vec           */ 0x25bc, 0x26ac, 0x0067,
+    /* index         */ 0x3a70, 0x012f,
+    /* rindex        */ 0x3a70, 0x012f,
     /* sprintf       */ 0x012f,
     /* formline      */ 0x012f,
-    /* ord           */ 0x38f0, 0x0003,
-    /* chr           */ 0x38f0, 0x0003,
-    /* crypt         */ 0x38f0, 0x012f,
+    /* ord           */ 0x3a70, 0x0003,
+    /* chr           */ 0x3a70, 0x0003,
+    /* crypt         */ 0x3a70, 0x012f,
     /* ucfirst       */ 0x0003,
     /* lcfirst       */ 0x0003,
     /* uc            */ 0x0003,
     /* lc            */ 0x0003,
     /* quotemeta     */ 0x0003,
-    /* rv2av         */ 0x253c, 0x2a50, 0x262c, 0x3328, 0x0104, 0x0003,
+    /* rv2av         */ 0x25bc, 0x2ad0, 0x26ac, 0x34a8, 0x3864, 0x0003,
     /* aelemfast     */ 0x01ff,
     /* aelemfast_lex */ 0x01ff,
-    /* aelem         */ 0x253c, 0x025a, 0x2430, 0x262c, 0x0067,
-    /* aslice        */ 0x253c, 0x262c, 0x3329,
-    /* kvaslice      */ 0x262d,
+    /* aelem         */ 0x25bc, 0x025a, 0x24b0, 0x26ac, 0x0067,
+    /* aslice        */ 0x25bc, 0x26ac, 0x34a9,
+    /* kvaslice      */ 0x26ad,
     /* aeach         */ 0x0003,
     /* akeys         */ 0x0003,
     /* avalues       */ 0x0003,
     /* each          */ 0x0003,
     /* values        */ 0x0003,
-    /* keys          */ 0x262c, 0x0003,
-    /* delete        */ 0x253c, 0x3278, 0x0003,
-    /* exists        */ 0x37d8, 0x0003,
-    /* rv2hv         */ 0x253c, 0x0578, 0x04d4, 0x2a50, 0x262c, 0x3328, 0x0104, 0x0003,
-    /* helem         */ 0x253c, 0x025a, 0x2430, 0x262c, 0x0067,
-    /* hslice        */ 0x253c, 0x262c, 0x3329,
-    /* kvhslice      */ 0x262d,
+    /* keys          */ 0x26ac, 0x0003,
+    /* delete        */ 0x25bc, 0x33f8, 0x0003,
+    /* exists        */ 0x3958, 0x0003,
+    /* rv2hv         */ 0x25bc, 0x0578, 0x04d4, 0x2ad0, 0x26ac, 0x34a8, 0x3864, 0x0003,
+    /* helem         */ 0x25bc, 0x025a, 0x24b0, 0x26ac, 0x0067,
+    /* hslice        */ 0x25bc, 0x26ac, 0x34a9,
+    /* kvhslice      */ 0x26ad,
     /* unpack        */ 0x012f,
     /* pack          */ 0x012f,
-    /* split         */ 0x1e3d,
+    /* split         */ 0x1ebd,
     /* join          */ 0x012f,
-    /* list          */ 0x253c, 0x1af9,
+    /* list          */ 0x25bc, 0x1b79,
     /* lslice        */ 0x0067,
     /* anonlist      */ 0x012f,
     /* anonhash      */ 0x012f,
     /* splice        */ 0x012f,
-    /* push          */ 0x38f0, 0x012f,
+    /* push          */ 0x3a70, 0x012f,
     /* pop           */ 0x0003,
     /* shift         */ 0x0003,
-    /* unshift       */ 0x38f0, 0x012f,
-    /* sort          */ 0x3558, 0x2cf4, 0x0d90, 0x214c, 0x2f48, 0x2244, 0x29c1,
-    /* reverse       */ 0x214c, 0x0003,
-    /* grepstart     */ 0x1925,
-    /* grepwhile     */ 0x1924, 0x0003,
-    /* mapstart      */ 0x1925,
-    /* mapwhile      */ 0x1924, 0x0003,
+    /* unshift       */ 0x3a70, 0x012f,
+    /* sort          */ 0x36d8, 0x2d74, 0x0e10, 0x21cc, 0x30c8, 0x22c4, 0x2a41,
+    /* reverse       */ 0x21cc, 0x0003,
+    /* grepstart     */ 0x19a5,
+    /* grepwhile     */ 0x19a4, 0x0003,
+    /* mapstart      */ 0x19a5,
+    /* mapwhile      */ 0x19a4, 0x0003,
     /* range         */ 0x0003,
-    /* flip          */ 0x22d8, 0x0003,
-    /* flop          */ 0x22d8, 0x0003,
+    /* flip          */ 0x2358, 0x0003,
+    /* flop          */ 0x2358, 0x0003,
     /* and           */ 0x0003,
     /* or            */ 0x0003,
     /* xor           */ 0x0067,
     /* dor           */ 0x0003,
-    /* cond_expr     */ 0x253c, 0x0003,
+    /* cond_expr     */ 0x25bc, 0x0003,
     /* andassign     */ 0x0003,
     /* orassign      */ 0x0003,
     /* dorassign     */ 0x0003,
     /* method        */ 0x0003,
-    /* entersub      */ 0x253c, 0x025a, 0x0ad0, 0x028c, 0x3848, 0x0104, 0x1f01,
-    /* leavesub      */ 0x2db8, 0x0003,
-    /* leavesublv    */ 0x2db8, 0x0003,
+    /* entersub      */ 0x25bc, 0x025a, 0x0ad0, 0x028c, 0x39c8, 0x3864, 0x1f81,
+    /* leavesub      */ 0x2e38, 0x0003,
+    /* leavesublv    */ 0x2e38, 0x0003,
     /* caller        */ 0x00bc, 0x012f,
     /* warn          */ 0x012f,
     /* die           */ 0x012f,
     /* reset         */ 0x012f,
-    /* nextstate     */ 0x3c9c, 0x3ad8, 0x1cd5,
-    /* dbstate       */ 0x3c9c, 0x3ad8, 0x1cd5,
-    /* leave         */ 0x23dc, 0x2db9,
-    /* enteriter     */ 0x253c, 0x2a50, 0x010c, 0x2fc9,
-    /* iter          */ 0x2fc9,
-    /* leaveloop     */ 0x23dc, 0x0067,
-    /* last          */ 0x3a5c, 0x0003,
-    /* next          */ 0x3a5c, 0x0003,
-    /* redo          */ 0x3a5c, 0x0003,
-    /* dump          */ 0x3a5c, 0x0003,
-    /* goto          */ 0x3a5c, 0x0003,
+    /* nextstate     */ 0x3e1c, 0x3c58, 0x1d55,
+    /* dbstate       */ 0x3e1c, 0x3c58, 0x1d55,
+    /* leave         */ 0x245c, 0x2e39,
+    /* enteriter     */ 0x25bc, 0x2ad0, 0x0b4c, 0x3149,
+    /* iter          */ 0x3149,
+    /* leaveloop     */ 0x245c, 0x0067,
+    /* last          */ 0x3bdc, 0x0003,
+    /* next          */ 0x3bdc, 0x0003,
+    /* redo          */ 0x3bdc, 0x0003,
+    /* dump          */ 0x3bdc, 0x0003,
+    /* goto          */ 0x3bdc, 0x0003,
     /* exit          */ 0x012f,
     /* entergiven    */ 0x0003,
     /* leavegiven    */ 0x0003,
     /* enterwhen     */ 0x0003,
     /* leavewhen     */ 0x0003,
-    /* open          */ 0x2c3c, 0x2b58, 0x20b4, 0x1ff0, 0x012f,
+    /* open          */ 0x2cbc, 0x2bd8, 0x2134, 0x2070, 0x012f,
     /* close         */ 0x012f,
     /* pipe_op       */ 0x012f,
     /* fileno        */ 0x012f,
@@ -2936,7 +2938,7 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* getc          */ 0x012f,
     /* read          */ 0x012f,
     /* enterwrite    */ 0x012f,
-    /* leavewrite    */ 0x2db8, 0x0003,
+    /* leavewrite    */ 0x2e38, 0x0003,
     /* sysopen       */ 0x012f,
     /* sysseek       */ 0x012f,
     /* sysread       */ 0x012f,
@@ -2947,7 +2949,7 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* truncate      */ 0x012f,
     /* fcntl         */ 0x012f,
     /* ioctl         */ 0x012f,
-    /* flock         */ 0x38f0, 0x012f,
+    /* flock         */ 0x3a70, 0x012f,
     /* send          */ 0x012f,
     /* recv          */ 0x012f,
     /* socket        */ 0x012f,
@@ -2963,66 +2965,66 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* getpeername   */ 0x0003,
     /* lstat         */ 0x0003,
     /* stat          */ 0x0003,
-    /* ftrread       */ 0x1570, 0x17cc, 0x1688, 0x1444, 0x0003,
-    /* ftrwrite      */ 0x1570, 0x17cc, 0x1688, 0x1444, 0x0003,
-    /* ftrexec       */ 0x1570, 0x17cc, 0x1688, 0x1444, 0x0003,
-    /* fteread       */ 0x1570, 0x17cc, 0x1688, 0x1444, 0x0003,
-    /* ftewrite      */ 0x1570, 0x17cc, 0x1688, 0x1444, 0x0003,
-    /* fteexec       */ 0x1570, 0x17cc, 0x1688, 0x1444, 0x0003,
-    /* ftis          */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftsize        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftmtime       */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftatime       */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftctime       */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftrowned      */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* fteowned      */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftzero        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftsock        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftchr         */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftblk         */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftfile        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftdir         */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftpipe        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftsuid        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftsgid        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftsvtx        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftlink        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* fttty         */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* fttext        */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* ftbinary      */ 0x1570, 0x17cc, 0x1688, 0x0003,
-    /* chdir         */ 0x38f0, 0x012f,
-    /* chown         */ 0x38f0, 0x012f,
-    /* chroot        */ 0x38f0, 0x0003,
-    /* unlink        */ 0x38f0, 0x012f,
-    /* chmod         */ 0x38f0, 0x012f,
-    /* utime         */ 0x38f0, 0x012f,
-    /* rename        */ 0x38f0, 0x012f,
-    /* link          */ 0x38f0, 0x012f,
-    /* symlink       */ 0x38f0, 0x012f,
+    /* ftrread       */ 0x15f0, 0x184c, 0x1708, 0x14c4, 0x0003,
+    /* ftrwrite      */ 0x15f0, 0x184c, 0x1708, 0x14c4, 0x0003,
+    /* ftrexec       */ 0x15f0, 0x184c, 0x1708, 0x14c4, 0x0003,
+    /* fteread       */ 0x15f0, 0x184c, 0x1708, 0x14c4, 0x0003,
+    /* ftewrite      */ 0x15f0, 0x184c, 0x1708, 0x14c4, 0x0003,
+    /* fteexec       */ 0x15f0, 0x184c, 0x1708, 0x14c4, 0x0003,
+    /* ftis          */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftsize        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftmtime       */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftatime       */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftctime       */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftrowned      */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* fteowned      */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftzero        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftsock        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftchr         */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftblk         */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftfile        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftdir         */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftpipe        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftsuid        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftsgid        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftsvtx        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftlink        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* fttty         */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* fttext        */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* ftbinary      */ 0x15f0, 0x184c, 0x1708, 0x0003,
+    /* chdir         */ 0x3a70, 0x012f,
+    /* chown         */ 0x3a70, 0x012f,
+    /* chroot        */ 0x3a70, 0x0003,
+    /* unlink        */ 0x3a70, 0x012f,
+    /* chmod         */ 0x3a70, 0x012f,
+    /* utime         */ 0x3a70, 0x012f,
+    /* rename        */ 0x3a70, 0x012f,
+    /* link          */ 0x3a70, 0x012f,
+    /* symlink       */ 0x3a70, 0x012f,
     /* readlink      */ 0x0003,
-    /* mkdir         */ 0x38f0, 0x012f,
-    /* rmdir         */ 0x38f0, 0x0003,
+    /* mkdir         */ 0x3a70, 0x012f,
+    /* rmdir         */ 0x3a70, 0x0003,
     /* open_dir      */ 0x012f,
     /* readdir       */ 0x0003,
     /* telldir       */ 0x0003,
     /* seekdir       */ 0x012f,
     /* rewinddir     */ 0x0003,
     /* closedir      */ 0x0003,
-    /* wait          */ 0x38f1,
-    /* waitpid       */ 0x38f0, 0x012f,
-    /* system        */ 0x38f0, 0x012f,
-    /* exec          */ 0x38f0, 0x012f,
-    /* kill          */ 0x38f0, 0x012f,
-    /* getppid       */ 0x38f1,
-    /* getpgrp       */ 0x38f0, 0x012f,
-    /* setpgrp       */ 0x38f0, 0x012f,
-    /* getpriority   */ 0x38f0, 0x012f,
-    /* setpriority   */ 0x38f0, 0x012f,
-    /* time          */ 0x38f1,
+    /* wait          */ 0x3a71,
+    /* waitpid       */ 0x3a70, 0x012f,
+    /* system        */ 0x3a70, 0x012f,
+    /* exec          */ 0x3a70, 0x012f,
+    /* kill          */ 0x3a70, 0x012f,
+    /* getppid       */ 0x3a71,
+    /* getpgrp       */ 0x3a70, 0x012f,
+    /* setpgrp       */ 0x3a70, 0x012f,
+    /* getpriority   */ 0x3a70, 0x012f,
+    /* setpriority   */ 0x3a70, 0x012f,
+    /* time          */ 0x3a71,
     /* localtime     */ 0x0003,
     /* gmtime        */ 0x012f,
     /* alarm         */ 0x0003,
-    /* sleep         */ 0x38f0, 0x012f,
+    /* sleep         */ 0x3a70, 0x012f,
     /* shmget        */ 0x012f,
     /* shmctl        */ 0x012f,
     /* shmread       */ 0x012f,
@@ -3036,8 +3038,8 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* semctl        */ 0x012f,
     /* require       */ 0x0003,
     /* dofile        */ 0x0003,
-    /* entereval     */ 0x0114, 0x0950, 0x062c, 0x39c8, 0x1be4, 0x0003,
-    /* leaveeval     */ 0x2db8, 0x0003,
+    /* entereval     */ 0x2ed4, 0x0950, 0x062c, 0x3b48, 0x1c64, 0x0003,
+    /* leaveeval     */ 0x2e38, 0x0003,
     /* entertry      */ 0x0003,
     /* ghbyname      */ 0x0003,
     /* ghbyaddr      */ 0x012f,
@@ -3059,12 +3061,12 @@ EXTCONST U16  PL_op_private_bitdefs[] = {
     /* lock          */ 0x0003,
     /* once          */ 0x0003,
     /* reach         */ 0x0003,
-    /* rkeys         */ 0x262c, 0x0003,
+    /* rkeys         */ 0x26ac, 0x0003,
     /* rvalues       */ 0x0003,
-    /* coreargs      */ 0x26fc, 0x0018, 0x0ca4, 0x0bc1,
+    /* coreargs      */ 0x277c, 0x0018, 0x0d24, 0x0c41,
     /* runcv         */ 0x00bd,
     /* fc            */ 0x0003,
-    /* padrange      */ 0x253c, 0x019b,
+    /* padrange      */ 0x25bc, 0x019b,
 
 };
 
index 3a1e9dc..3e2f110 100644 (file)
@@ -391,7 +391,7 @@ for (qw(rv2hv padhv)) {
 
 
 
-addbits($_, 1 => qw(OPpHINT_STRICT_REFS -)) for qw(rv2sv rv2av rv2hv rv2gv);
+addbits($_, 1 => qw(OPpHINT_STRICT_REFS STRICT)) for qw(rv2sv rv2av rv2hv rv2gv);
 
 
 
@@ -477,7 +477,7 @@ addbits('repeat', 6 => qw(OPpREPEAT_DOLIST DOLIST)); # List replication
 
 addbits('entersub',
     0      => qw(OPpENTERSUB_INARGS   INARGS), # Lval used as arg to a sub
-    1      => qw(OPpHINT_STRICT_REFS  -     ), # 'use strict' in scope
+    1      => qw(OPpHINT_STRICT_REFS  STRICT), # 'use strict' in scope
     2      => qw(OPpENTERSUB_HASTARG  TARG  ), # Called from OP tree
     3      => qw(OPpENTERSUB_AMPER    AMPER),  # Used & form to call
     4      => qw(OPpENTERSUB_DB       DBG   ), # Debug subroutine
@@ -486,7 +486,7 @@ addbits('entersub',
 );
 addbits('rv2cv',
     # If a constant sub, return the constant
-    1 => qw(OPpHINT_STRICT_REFS    -    ),  # 'use strict' in scope
+    1 => qw(OPpHINT_STRICT_REFS    STRICT),  # 'use strict' in scope
 
     3 => qw(OPpENTERSUB_AMPER      AMPER),  # Used & form to call
 
@@ -549,7 +549,7 @@ addbits('rv2gv',
 
 addbits('enteriter',
                     2 => qw(OPpITER_REVERSED REVERSED),# for (reverse ...)
-                    3 => qw(OPpITER_DEF      -),       # 'for $_' or 'for my $_'
+                    3 => qw(OPpITER_DEF      DEF),     # 'for $_' or 'for my $_'
 );
 addbits('iter',     2 => qw(OPpITER_REVERSED REVERSED));
 
@@ -643,7 +643,7 @@ addbits('entereval',
     2 => qw(OPpEVAL_UNICODE      UNI    ),
     3 => qw(OPpEVAL_BYTES        BYTES  ),
     4 => qw(OPpEVAL_COPHH        COPHH  ), # Construct %^H from COP hints
-    5 => qw(OPpEVAL_RE_REPARSING -      ), # eval_sv(..., G_RE_REPARSING)
+    5 => qw(OPpEVAL_RE_REPARSING REPARSE), # eval_sv(..., G_RE_REPARSING)
 );