Message-ID: <Pine.LNX.4.21.
0103262320170.20040-100000@localhost.localdomain>
p4raw-id: //depot/perl@9377
sub walkoptree_exec {
my ($op, $method, $level) = @_;
sub walkoptree_exec {
my ($op, $method, $level) = @_;
my ($sym, $ppname);
my $prefix = " " x $level;
for (; $$op; $op = $op->next) {
my ($sym, $ppname);
my $prefix = " " x $level;
for (; $$op; $op = $op->next) {
+ my $order = @_ ? shift : "";
my @options = @_;
B::clearsym();
if (@options) {
my @options = @_;
B::clearsym();
if (@options) {
+ my $level = @_ ? shift : 0;