diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-18 20:45:59 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-18 20:45:59 -0800 |
commit | 0a872c7df46b0d0c100826616b6580f25de86070 (patch) | |
tree | ed11838f36270fe852daae37bccd57734727781a | |
parent | 84b2a83ee84c08965d1a98daa5e50db873934b33 (diff) | |
download | perl-0a872c7df46b0d0c100826616b6580f25de86070.tar.gz |
Teach B::Concise about OPpCONST_NOVER
-rw-r--r-- | ext/B/B/Concise.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index f3b517ac78..992596ac2e 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -635,7 +635,8 @@ $priv{$_}{16} = "TARGMY" "exec", "kill", "getppid", "getpgrp", "setpgrp", "getpriority", "setpriority", "time", "sleep"); $priv{$_}{4} = "REVERSED" for ("enteriter", "iter"); -@{$priv{"const"}}{4,8,16,64,128} = ("SHORT","STRICT","ENTERED","BARE","WARN"); +@{$priv{"const"}}{2,4,8,16,64,128} = + ("NOVER","SHORT","STRICT","ENTERED","BARE","WARN"); $priv{"flip"}{64} = $priv{"flop"}{64} = "LINENUM"; $priv{"list"}{64} = "GUESSED"; $priv{"delete"}{64} = "SLICE"; |