[Bps-public-commit] r9104 - in Carp-REPL: lib/Carp

sartak at bestpractical.com sartak at bestpractical.com
Thu Sep 20 21:47:55 EDT 2007


Author: sartak
Date: Thu Sep 20 21:47:50 2007
New Revision: 9104

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

Log:
 r42951 at onn:  sartak | 2007-09-20 21:30:06 -0400
 Use Devel::REPL::Script so we load profile and rcfile


Modified: Carp-REPL/lib/Carp/REPL.pm
==============================================================================
--- Carp-REPL/lib/Carp/REPL.pm	(original)
+++ Carp-REPL/lib/Carp/REPL.pm	Thu Sep 20 21:47:50 2007
@@ -101,7 +101,7 @@
     warn @_, "\n"; # tell the user what blew up
 
     require PadWalker;
-    require Devel::REPL;
+    require Devel::REPL::Script;
 
     my (@packages, @environments, @argses, $backtrace);
 
@@ -135,16 +135,16 @@
 
     warn $backtrace;
 
-    my $repl = Devel::REPL->new;
+    my $repl = Devel::REPL::Script->new;
 
     # LexEnv must come before LexEnvCarp
-    $repl->load_plugin($_) for qw/History LexEnv LexEnvCarp/;
+    $repl->_repl->load_plugin($_) for qw/LexEnv LexEnvCarp/;
 
-    $repl->environments(\@environments);
-    $repl->packages(\@packages);
-    $repl->argses(\@argses);
-    $repl->backtrace($backtrace);
-    $repl->frame(0);
+    $repl->_repl->environments(\@environments);
+    $repl->_repl->packages(\@packages);
+    $repl->_repl->argses(\@argses);
+    $repl->_repl->backtrace($backtrace);
+    $repl->_repl->frame(0);
 
     $repl->run;
 }



More information about the Bps-public-commit mailing list