From 0a872c7df46b0d0c100826616b6580f25de86070 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 18 Dec 2011 20:45:59 -0800 Subject: [PATCH] Teach B::Concise about OPpCONST_NOVER --- ext/B/B/Concise.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index f3b517a..992596a 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"; -- 2.7.4