diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-10-30 15:46:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-06 01:13:48 -0700 |
| commit | 233fb8229a314d457fa1db70bbe741ee5f985290 (patch) | |
| tree | 49095d765c094c234590e2d6aa357863e06baeef /ext/B | |
| parent | f2b535a07fcff8c5dce983f70a1f78604819e54b (diff) | |
| download | perl-233fb8229a314d457fa1db70bbe741ee5f985290.tar.gz | |
Add new OPpEVAL flags to B::Concise
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Concise.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 5eec86a3f3..1ef9c95244 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -647,7 +647,7 @@ $priv{"threadsv"}{64} = "SVREFd"; $priv{"exit"}{128} = "VMS"; $priv{$_}{2} = "FTACCESS" for ("ftrread", "ftrwrite", "ftrexec", "fteread", "ftewrite", "fteexec"); -$priv{"entereval"}{2} = "HAS_HH"; +@{$priv{"entereval"}}{2,4,8,16} = qw "HAS_HH UNI BYTES COPHH"; if ($] >= 5.009) { # Stacked filetests are post 5.8.x @{$priv{$_}}{4,8} = ("FTSTACKED","FTSTACKING") |