projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
usurp GVOP slot for new PADOP (one small step to making optree
[p5sagit/p5-mst-13.2.git]
/
ext
/
B
/
B
/
Terse.pm
diff --git
a/ext/B/B/Terse.pm
b/ext/B/B/Terse.pm
index
bc9d943
..
66b5cfc
100644
(file)
--- a/
ext/B/B/Terse.pm
+++ b/
ext/B/B/Terse.pm
@@
-54,10
+54,9
@@
sub B::SVOP::terse {
$op->sv->terse(0);
}
-sub B::GVOP::terse {
+sub B::PADOP::terse {
my ($op, $level) = @_;
- print indent($level), peekop($op), " ";
- $op->gv->terse(0);
+ print indent($level), peekop($op), " ", $op->padix, "\n";
}
sub B::PMOP::terse {