[Bast-commits] r4748 - in trunk/Devel-REPL: . lib/Devel/REPL/Plugin

[Sartak at dev.catalyst.perl.org]

Author: Sartak
Date: 2008-08-12 11:35:00 +0100 (Tue, 12 Aug 2008)
New Revision: 4748

Modified:
   trunk/Devel-REPL/
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/Turtles.pm
Log:
 r69325 at onn:  sartak | 2008-08-12 06:34:42 -0400
 Don't initialize a turtles matcher if we don't need to



Property changes on: trunk/Devel-REPL
___________________________________________________________________
Name: svk:merge
   - 08e7d58d-de06-4458-8c15-335e402ab116:/local/Devel-REPL:63228
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local/bast/broken_internets/Devel-REPL:80567
   + 08e7d58d-de06-4458-8c15-335e402ab116:/local/Devel-REPL:69325
6d2a1d83-d666-409f-9dbf-d3bfcf4e9009:/local/bast/broken_internets/Devel-REPL:80567

Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/Turtles.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/Turtles.pm	2008-08-08 18:32:41 UTC (rev 4747)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/Turtles.pm	2008-08-12 10:35:00 UTC (rev 4748)
@@ -17,6 +17,7 @@
   metaclass => "Collection::Array",
   isa => "ArrayRef[RegexpRef|CodeRef]",
   is  => "rw",
+  lazy => 1,
   default => sub { my $prefix = shift->default_command_prefix; [qr/^ $prefix (\w+) \s* (.*) /x] },
   provides => {
     unshift => "add_turtles_matcher",