X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare%2FContext%2FSimple.pm;h=bc71261b7350f4835d0e80c1d7d3dd0058dcb332;hb=c677b4195a09035d3ec2aa356c8025a356b556db;hp=51a2d054dfab10afbf3c93ad27a77ae8b1618a55;hpb=f1b89adc9d1738287606d2c7c5fcde06b1fcba53;p=p5sagit%2FDevel-Declare.git

diff --git a/lib/Devel/Declare/Context/Simple.pm b/lib/Devel/Declare/Context/Simple.pm
index 51a2d05..bc71261 100644
--- a/lib/Devel/Declare/Context/Simple.pm
+++ b/lib/Devel/Declare/Context/Simple.pm
@@ -6,6 +6,8 @@ use Devel::Declare ();
 use B::Hooks::EndOfScope;
 use Carp qw/confess/;
 
+our $VERSION = '0.006018';
+
 sub new {
   my $class = shift;
   bless {@_}, $class;
@@ -110,7 +112,8 @@ sub strip_proto {
     Devel::Declare::clear_lex_stuff();
     $linestr = $self->get_linestr();
 
-    substr($linestr, $self->offset, $length) = '';
+    substr($linestr, $self->offset,
+      defined($length) ? $length : length($linestr)) = '';
     $self->set_linestr($linestr);
 
     return $proto;