[Bast-commits] r4343 - trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine

[Sartak at dev.catalyst.perl.org]

Author: Sartak
Date: 2008-05-06 09:05:54 +0100 (Tue, 06 May 2008)
New Revision: 4343

Modified:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
Log:
Add the appropriate newlines from MultiLine::PPI


Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm	2008-05-06 07:57:57 UTC (rev 4342)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm	2008-05-06 08:05:54 UTC (rev 4343)
@@ -37,7 +37,7 @@
     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);