projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
84b2a83
)
Teach B::Concise about OPpCONST_NOVER
author
Father Chrysostomos
<sprout@cpan.org>
Mon, 19 Dec 2011 04:45:59 +0000
(20:45 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Mon, 19 Dec 2011 04:45:59 +0000
(20:45 -0800)
ext/B/B/Concise.pm
patch
|
blob
|
history
diff --git
a/ext/B/B/Concise.pm
b/ext/B/B/Concise.pm
index
f3b517a
..
992596a
100644
(file)
--- 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";