[Bast-commits] r5320 - in Devel-Declare/1.000/trunk: . lib/Devel/Declare/Context

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2009-01-18 19:47:32 +0000 (Sun, 18 Jan 2009)
New Revision: 5320

Modified:
   Devel-Declare/1.000/trunk/Changes
   Devel-Declare/1.000/trunk/lib/Devel/Declare/Context/Simple.pm
Log:
Context::Simple::inject_if_block returns true value on block

Modified: Devel-Declare/1.000/trunk/Changes
===================================================================
--- Devel-Declare/1.000/trunk/Changes	2009-01-18 19:40:54 UTC (rev 5319)
+++ Devel-Declare/1.000/trunk/Changes	2009-01-18 19:47:32 UTC (rev 5320)
@@ -1,5 +1,8 @@
 Changes for Devel-Declare
 
+  - Context::Simple::inject_if_block now returns true if start of block was
+    found
+
 0.003004
   - Make magic work within string evals on 5.10 if the hints hash is used.
   - Bind S_scan_ident to perl. It allows scanning for simple identifiers.

Modified: Devel-Declare/1.000/trunk/lib/Devel/Declare/Context/Simple.pm
===================================================================
--- Devel-Declare/1.000/trunk/lib/Devel/Declare/Context/Simple.pm	2009-01-18 19:40:54 UTC (rev 5319)
+++ Devel-Declare/1.000/trunk/lib/Devel/Declare/Context/Simple.pm	2009-01-18 19:47:32 UTC (rev 5320)
@@ -131,7 +131,9 @@
     substr($linestr, $self->offset + 1, 0) = $inject;
     substr($linestr, $self->offset, 0) = $before;
     $self->set_linestr($linestr);
+    return 1;
   }
+  return 0;
 }
 
 sub scope_injector_call {