From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 9 Mar 2002 00:13:27 +0000 (+0000)
Subject: perl -Dt doesnt output newlines
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=091ab6010f97a3f49489e8fb6c7cc430e9479bff;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;