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 (file)
--- 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 (file)
--- 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;
 }