diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-19 13:13:24 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-19 13:13:24 -0700 |
| commit | a1cbc68fc572054c877658043b3ec52b4709b78e (patch) | |
| tree | 54beb8f5e7366366cba550314897a45d1d842335 | |
| parent | e4a1664ff161f51630de661b5ab408a4da33e016 (diff) | |
| download | perl-a1cbc68fc572054c877658043b3ec52b4709b78e.tar.gz | |
Add OPpDONT_INIT_GV to B::Concise
| -rw-r--r-- | ext/B/B/Concise.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index d04fb71a5a..4e74ceb64e 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -611,6 +611,7 @@ $priv{$_}{4} = "DREFed" for (qw(rv2sv rv2av rv2hv)); @{$priv{$_}}{32,64,96} = ("DREFAV", "DREFHV", "DREFSV") for (qw(rv2gv rv2sv padsv aelem helem)); $priv{$_}{16} = "STATE" for ("padav", "padhv", "padsv"); +$priv{rv2gv}{4} = "NOINIT"; @{$priv{"entersub"}}{1,4,16,32,64} = qw( DREF INARGS DBG TARG ); @{$priv{rv2cv}}{1,8,128} = ("CONST","AMPER","NO()"); $priv{"gv"}{32} = "EARLYCV"; |