diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-20 03:27:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-20 03:27:49 +0000 |
| commit | c7a610ab136c73561800bf7cdeff586005d8a79a (patch) | |
| tree | f8795f1282c52d1465c9250c428a55b1877276a8 /ext | |
| parent | 932e9ff92dfdad82564fe7085f2cb398e628fac3 (diff) | |
| download | perl-c7a610ab136c73561800bf7cdeff586005d8a79a.tar.gz | |
suppress warning (from John Tobey <jtobey@epsilondev.com>)
p4raw-id: //depot/perl@4199
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Terse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm index 35bf9b8d0d..bc9d9434c9 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 { |