X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Declare.xs;fp=Declare.xs;h=3a4ff9516929b449c7733e9ec084f6b97c13366f;hb=c0439e9715904cbcd490005ad62f6ec30219e4ca;hp=0474261ab56215931cb60cd2a60650fefe0d178a;hpb=358aacb228a1788a407b975347048679af338e20;p=p5sagit%2FDevel-Declare.git

diff --git a/Declare.xs b/Declare.xs
index 0474261..3a4ff95 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -394,8 +394,7 @@ STATIC OP *dd_ck_const(pTHX_ OP *o, void *user_data) {
     s = scan_word(s, buf, sizeof buf, FALSE, &len);
     if (strnEQ(buf, name, len)) {
       char *d;
-      SV *inject = newSVpv("", 0);
-      sv_catpvn(inject, SvPV_nolen(PL_linestr), PL_bufptr - SvPVX(PL_linestr));
+      SV *inject = newSVpvn(SvPVX(PL_linestr), PL_bufptr - SvPVX(PL_linestr));
       sv_catpvn(inject, buf, len);
 
       d = peekspace(s);