X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/7f20e9dd0ffd291ea63da3dcb7fbfa7029e93f0d..c7a610ab136c73561800bf7cdeff586005d8a79a:/ext/B/B/Terse.pm

diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm
index 93757f3..bc9d943 100644
--- a/ext/B/B/Terse.pm
+++ b/ext/B/B/Terse.pm
@@ -17,6 +17,7 @@ sub terse {
 sub compile {
     my $order = shift;
     my @options = @_;
+    B::clearsym();
     if (@options) {
 	return sub {
 	    my $objname;
@@ -78,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 {