diff options
| author | David Mitchell <davem@iabyn.com> | 2016-11-14 10:35:39 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-11-14 10:46:39 +0000 |
| commit | 2e2d70f2b1c8c037ccde21d4de658efaa0008b49 (patch) | |
| tree | 2619fb7e52629bac1aa8e7e72823efef538bd2f9 /ext/B | |
| parent | d3d326f25de908230e5230aca83f78017a4a136a (diff) | |
| download | perl-2e2d70f2b1c8c037ccde21d4de658efaa0008b49.tar.gz | |
eliminate OPpRUNTIME private PMOP flag
This flag was added in 5.004 and even then it didn't seem to be used for
anything. It gets set and unset in various places, but is never tested.
I'm not even sure what it was intended for.
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/t/f_sort.t | 4 | ||||
| -rw-r--r-- | ext/B/t/optree_misc.t | 4 | ||||
| -rw-r--r-- | ext/B/t/optree_samples.t | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/ext/B/t/f_sort.t b/ext/B/t/f_sort.t index eda5a21cc5..fe0927829f 100644 --- a/ext/B/t/f_sort.t +++ b/ext/B/t/f_sort.t @@ -516,7 +516,7 @@ checkOptree(name => q{Compound sort/map Expression }, # b <;> nextstate(main 608 (eval 34):2) v:{ # c <0> pushmark s # d <#> gvsv[*_] s -# e </> match(/"=(\\d+)"/) l/RTIME +# e </> match(/"=(\\d+)"/) l # f <#> gvsv[*_] s # g <1> uc[t17] sK/1 # h <@> anonlist sK*/1 @@ -546,7 +546,7 @@ EOT_EOT # b <;> nextstate(main 608 (eval 34):2) v:{ # c <0> pushmark s # d <$> gvsv(*_) s -# e </> match(/"=(\\d+)"/) l/RTIME +# e </> match(/"=(\\d+)"/) l # f <$> gvsv(*_) s # g <1> uc[t9] sK/1 # h <@> anonlist sK*/1 diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t index 6505f65107..22440ca5b8 100644 --- a/ext/B/t/optree_misc.t +++ b/ext/B/t/optree_misc.t @@ -438,12 +438,12 @@ checkOptree ( name => 'm?x?', # 3 <1> leavesub[1 ref] K/REFC,1 ->(end) # - <@> lineseq KP ->3 # 1 <;> nextstate(main 914 optree_misc.t:434) v:>,<,%,{ ->2 -# 2 </> match(/"x"/) /RTIME ->3 +# 2 </> match(/"x"/) ->3 EOT_EOT # 3 <1> leavesub[1 ref] K/REFC,1 ->(end) # - <@> lineseq KP ->3 # 1 <;> nextstate(main 914 optree_misc.t:434) v:>,<,%,{ ->2 -# 2 </> match(/"x"/) /RTIME ->3 +# 2 </> match(/"x"/) ->3 EONT_EONT diff --git a/ext/B/t/optree_samples.t b/ext/B/t/optree_samples.t index 4a509a7361..1330a47302 100644 --- a/ext/B/t/optree_samples.t +++ b/ext/B/t/optree_samples.t @@ -431,7 +431,7 @@ checkOptree ( name => '@foo = grep(!/^\#/, @bar)', # 5 <1> rv2av[t4] lKM/1 # 6 <@> grepstart lK # 7 <|> grepwhile(other->8)[t5] lK -# 8 </> match(/"^#"/) s/RTIME +# 8 </> match(/"^#"/) s # 9 <1> not sK/1 # goto 7 # a <0> pushmark s @@ -447,7 +447,7 @@ EOT_EOT # 5 <1> rv2av[t2] lKM/1 # 6 <@> grepstart lK # 7 <|> grepwhile(other->8)[t3] lK -# 8 </> match(/"^\\#"/) s/RTIME +# 8 </> match(/"^\\#"/) s # 9 <1> not sK/1 # goto 7 # a <0> pushmark s |