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

[sartak at bestpractical.com]

Author: sartak
Date: Fri May 16 08:31:19 2008
New Revision: 12394

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

Log:
 r56001 at onn:  sartak | 2008-05-16 08:16:50 -0400
 Include the filename in the :l output


Modified: Carp-REPL/lib/Devel/REPL/Plugin/LexEnvCarp.pm
==============================================================================
--- Carp-REPL/lib/Devel/REPL/Plugin/LexEnvCarp.pm	(original)
+++ Carp-REPL/lib/Devel/REPL/Plugin/LexEnvCarp.pm	Fri May 16 08:31:19 2008
@@ -96,6 +96,7 @@
         $min = 0 if $min < 0;
         $max = $#code if $max > $#code;
 
+        print "File $file:\n";
         for my $cur ($min .. $max) {
             next if !defined($code[$cur]);