From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 20 Sep 1999 03:27:49 +0000 (+0000)
Subject: suppress warning (from John Tobey <jtobey@epsilondev.com>)
X-Git-Tag: accepted/trunk/20130322.191538~36066
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c7a610ab136c73561800bf7cdeff586005d8a79a;p=platform%2Fupstream%2Fperl.git

suppress warning (from John Tobey <jtobey@epsilondev.com>)

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

diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm
index 35bf9b8..bc9d943 100644
--- a/ext/B/B/Terse.pm
+++ b/ext/B/B/Terse.pm
@@ -79,7 +79,7 @@ sub B::COP::terse {
     if ($label) {
 	$label = " label ".cstring($label);
     }
-    print indent($level), peekop($op), $label, "\n";
+    print indent($level), peekop($op), $label || "", "\n";
 }
 
 sub B::PV::terse {