This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
suppress warning (from John Tobey <jtobey@epsilondev.com>)
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 20 Sep 1999 03:27:49 +0000 (03:27 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 20 Sep 1999 03:27:49 +0000 (03:27 +0000)
p4raw-id: //depot/perl@4199

ext/B/B/Terse.pm

index 35bf9b8..bc9d943 100644 (file)
@@ -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 {