[Bps-public-commit] r15033 - in Carp-REPL: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 12 06:48:44 2008
New Revision: 15033

Modified:
   Carp-REPL/   (props changed)
   Carp-REPL/Changes
   Carp-REPL/lib/Devel/REPL/Plugin/Carp/REPL.pm

Log:
 r69327 at onn:  sartak | 2008-08-12 06:37:39 -0400
 Remove excess newlines in :l code listings


Modified: Carp-REPL/Changes
==============================================================================
--- Carp-REPL/Changes	(original)
+++ Carp-REPL/Changes	Tue Aug 12 06:48:44 2008
@@ -4,6 +4,7 @@
         Fix longstanding "not nested deeply enough" bug
             Caused by not skipping over "eval" frames
         Move a lot of code into a new dist, Devel::StackTrace::WithLexicals
+        Remove excess newlines in :l code listings
 
 0.12    Fri May 16 11:17:55 2008
         :l(ist) command for printing source code

Modified: Carp-REPL/lib/Devel/REPL/Plugin/Carp/REPL.pm
==============================================================================
--- Carp-REPL/lib/Devel/REPL/Plugin/Carp/REPL.pm	(original)
+++ Carp-REPL/lib/Devel/REPL/Plugin/Carp/REPL.pm	Tue Aug 12 06:48:44 2008
@@ -102,6 +102,7 @@
             return '';
         };
         my @code = <$handle>;
+        chomp @code;
 
         my $min = $num - 6;
         my $max = $num + 4;