perl -Dt doesnt output newlines

Message-Id: <200203090013.AAA01000@gizmo.fdgroup.co.uk>

p4raw-id: //depot/perl@15127

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;