This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Teach B::Concise about OPpCONST_NOVER
authorFather Chrysostomos <sprout@cpan.org>
Mon, 19 Dec 2011 04:45:59 +0000 (20:45 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 19 Dec 2011 04:45:59 +0000 (20:45 -0800)
ext/B/B/Concise.pm

index f3b517a..992596a 100644 (file)
@@ -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";