From: Sartak <Sartak@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Tue, 6 May 2008 08:05:54 +0000 (+0000)
Subject: Add the appropriate newlines from MultiLine::PPI
X-Git-Tag: v1.003015~119
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=commitdiff_plain;h=998f8107e680ac1c285896034925da2acb3c4d5d;hp=7c7c35c1216e297f82f97dcc0e27a28bc97d4e95

Add the appropriate newlines from MultiLine::PPI


git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4343 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
index b7957f0..fba07dd 100644
--- a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
+++ b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
@@ -37,7 +37,7 @@ sub continue_reading_if_necessary {
     my $append = $self->read(@args);
     $self->line_depth($self->line_depth - 1);
 
-    $line .= $append if defined($append);
+    $line .= "\n$append" if defined($append);
 
     $self->prompt($orig_prompt);