diff options
| author | Jim Cromie <jcromie@cpan.org> | 2004-08-31 17:19:54 -0600 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-09-01 18:54:25 +0000 |
| commit | d4797c1db270629c34a4328ed9f62ec5d7a6003c (patch) | |
| tree | 0ca4685f75870aa39b8048983857bc9513cc7a2d | |
| parent | 14815b0ce3491e115785ff3042545a8385a557d2 (diff) | |
| download | perl-d4797c1db270629c34a4328ed9f62ec5d7a6003c.tar.gz | |
[ PATCH ] 2 added private flags for B::Concise
Message-Id: <41355BFA.8010900@divsol.com>
The OPpENTERSUB_NOMOD and OPpCONST_SHORTCIRCUIT flags weren't
displayed by B::Concise.
p4raw-id: //depot/perl@23249
| -rw-r--r-- | ext/B/B/Concise.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 28545b98ed..9259b3165b 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -527,8 +527,7 @@ $priv{"repeat"}{64} = "DOLIST"; $priv{"leaveloop"}{64} = "CONT"; @{$priv{$_}}{32,64,96} = ("DREFAV", "DREFHV", "DREFSV") for (qw(rv2gv rv2sv padsv aelem helem)); -$priv{"entersub"}{16} = "DBG"; -$priv{"entersub"}{32} = "TARG"; +@{$priv{"entersub"}}{16,32,64} = ("DBG","TARG","NOMOD"); @{$priv{$_}}{4,8,128} = ("INARGS","AMPER","NO()") for ("entersub", "rv2cv"); $priv{"gv"}{32} = "EARLYCV"; $priv{"aelem"}{16} = $priv{"helem"}{16} = "LVDEFER"; @@ -547,7 +546,7 @@ $priv{$_}{16} = "TARGMY" "exec", "kill", "getppid", "getpgrp", "setpgrp", "getpriority", "setpriority", "time", "sleep"); $priv{$_}{4} = "REVERSED" for ("enteriter", "iter"); -@{$priv{"const"}}{8,16,32,64,128} = ("STRICT","ENTERED", '$[', "BARE", "WARN"); +@{$priv{"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"; |