X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FDeclare%2FContext%2FSimple.pm;h=488b8dc5c320b8a5e09c754cd3c140008b391d72;hb=dfd7e678f3e7e1626b87cc3c908aa7ccd7196bdd;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..488b8dc 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.006016';
+
 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;