From: Benjamin Sugars <bsugars@canoe.ca>
Date: Mon, 26 Mar 2001 23:40:33 +0000 (-0500)
Subject: B::Terse and warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=244826ebc30b533e32f299fd464a9d2df6f38a1a;p=p5sagit%2Fp5-mst-13.2.git

B::Terse and warnings
Message-ID: <Pine.LNX.4.21.0103262320170.20040-100000@localhost.localdomain>

p4raw-id: //depot/perl@9377
---

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 591b581..2ab1898 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -131,6 +131,7 @@ sub objsym {
 
 sub walkoptree_exec {
     my ($op, $method, $level) = @_;
+    $level ||= 0;
     my ($sym, $ppname);
     my $prefix = "    " x $level;
     for (; $$op; $op = $op->next) {
diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm
index a7a071e..8f669b4 100644
--- a/ext/B/B/Terse.pm
+++ b/ext/B/B/Terse.pm
@@ -15,7 +15,7 @@ sub terse {
 }
 
 sub compile {
-    my $order = shift;
+    my $order = @_ ? shift : "";
     my @options = @_;
     B::clearsym();
     if (@options) {
@@ -37,7 +37,7 @@ sub compile {
 }
 
 sub indent {
-    my $level = shift;
+    my $level = @_ ? shift : 0;
     return "    " x $level;
 }