diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-07-13 23:33:55 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-08-04 10:37:54 +0100 |
| commit | 5d1739474d967de1ab8a8f88aa5eff250dbc0eab (patch) | |
| tree | bd0b2ecf9040789e5352c90912a8255d585ad871 /ext/B | |
| parent | a123eb892ee6a30b5910abc29fbccf2386306e08 (diff) | |
| download | perl-5d1739474d967de1ab8a8f88aa5eff250dbc0eab.tar.gz | |
Widen the feature bundle hint mask to 4 bits
VMS only uses two bits for its hints, so we can steal one more for the
feature bundles. This is necessary if we want to remove features from
a future bundle, e.g. `indirect` and `switch`.
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/t/concise.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 3541ce3504..870429f4fc 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -521,7 +521,7 @@ like $out, qr/$end/, 'OP_AND->op_other points correctly'; is(scalar(@hints), 3, "3 hints"); is($hints[0], 'v:{', "hints[0]"); is($hints[1], 'v:*,&,{,x*,x&,x$,$', "hints[1]"); - is($hints[2], 'v:us,*,&,{,x*,x&,x$,$,fea=7', "hints[2]"); + is($hints[2], 'v:us,*,&,{,x*,x&,x$,$,fea=15', "hints[2]"); } __END__ |