This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl -Dt doesnt output newlines
authorDave Mitchell <davem@fdisolutions.com>
Sat, 9 Mar 2002 00:13:27 +0000 (00:13 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 9 Mar 2002 01:34:41 +0000 (01:34 +0000)
Message-Id: <200203090013.AAA01000@gizmo.fdgroup.co.uk>

p4raw-id: //depot/perl@15127

dump.c

diff --git a/dump.c b/dump.c
index 9b2ff67..ef07cc5 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1439,7 +1439,7 @@ Perl_debop(pTHX_ OP *o)
            PerlIO_printf(Perl_debug_log, "[%"UVuf"]", (UV)o->op_targ);
         break;
     default:
-       return 0;
+       break;
     }
     PerlIO_printf(Perl_debug_log, "\n");
     return 0;