Change 23249 by davem@no-spam on 2004/09/01 18:54:25
Subject: [ PATCH ] 2 added private flags for B::Concise
From: Jim Cromie <jcromie@no-spam>
Date: Tue, 31 Aug 2004 23:19:54 -0600
Message-Id: <41355BFA.8010900@no-spam>
The OPpENTERSUB_NOMOD and OPpCONST_SHORTCIRCUIT flags weren't
displayed by B::Concise.
Affected files ...
... //depot/perl/ext/B/B/Concise.pm#41 edit
Differences ...
==== //depot/perl/ext/B/B/Concise.pm#41 (text) ====
Index: perl/ext/B/B/Concise.pm
--- perl/ext/B/B/Concise.pm#40~23108~ Wed Jul 14 13:55:30 2004
+++ perl/ext/B/B/Concise.pm Wed Sep 1 11:54:25 2004
@@no-spam -527,8 +527,7 @@no-spam
$priv{"leaveloop"}{64} = "CONT";
@no-spam = ("DREFAV", "DREFHV", "DREFSV")
for (qw(rv2gv rv2sv padsv aelem helem));
-$priv{"entersub"}{16} = "DBG";
-$priv{"entersub"}{32} = "TARG";
+@no-spam"entersub"}}{16,32,64} = ("DBG","TARG","NOMOD");
@no-spam = ("INARGS","AMPER","NO()") for ("entersub", "rv2cv");
$priv{"gv"}{32} = "EARLYCV";
$priv{"aelem"}{16} = $priv{"helem"}{16} = "LVDEFER";
@@no-spam -547,7 +546,7 @@no-spam
"exec", "kill", "getppid", "getpgrp", "setpgrp", "getpriority",
"setpriority", "time", "sleep");
$priv{$_}{4} = "REVERSED" for ("enteriter", "iter");
-@no-spam"const"}}{8,16,32,64,128} = ("STRICT","ENTERED", '$[', "BARE", "WARN");
+@no-spam"const"}}{4,8,16,32,64,128} = ("SHORT","STRICT","ENTERED",'$[',"BARE","WARN");
$priv{"flip"}{64} = $priv{"flop"}{64} = "LINENUM";
$priv{"list"}{64} = "GUESSED";
$priv{"delete"}{64} = "SLICE";
End of Patch.