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

[sartak at bestpractical.com]

Author: sartak
Date: Fri May 16 08:31:06 2008
New Revision: 12392

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

Log:
 r55999 at onn:  sartak | 2008-05-16 08:14:26 -0400
 Messed up some heredocs


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:06 2008
@@ -129,14 +129,14 @@
                        map {"my $_;"}
                        keys %{ $self->environments->[$frame] };
 
-    my $aliases = << 'ALIASES';
+    my $aliases = << '    ALIASES';
     while (my ($k, $v) = each %{ $_REPL->environments->[$_REPL->frame] }) {
         Devel::LexAlias::lexalias 0, $k, $v;
     }
     my $_a; Devel::LexAlias::lexalias 0, '$_a', \$_REPL->argses->[$_REPL->frame];
     ALIASES
 
-    return << "CODE";
+    return << "    CODE";
     package $package;
     no warnings 'misc'; # declaration in same scope masks earlier instance
     no strict 'vars';   # so we get all the global variables in our package