X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Declare.xs;h=08bbec69028ee4d7282630e5b2e3cd302c5dae50;hb=86964fb3f9ba6afc359b1ecb231fe44dae3665ef;hp=d29488d77c314aece2b67e163b01034602420be2;hpb=f283a13f6101d4ac9d27d64f49a4608fc58d8ff7;p=p5sagit%2FDevel-Declare.git

diff --git a/Declare.xs b/Declare.xs
index d29488d..08bbec6 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -187,8 +187,17 @@ int dd_toke_scan_ident(pTHX_ int offset) {
 }
 
 int dd_toke_scan_str(pTHX_ int offset) {
+  int remaining = sv_len(PL_linestr) - offset;
+  SV* line_copy = newSVsv(PL_linestr);
   char* base_s = SvPVX(PL_linestr) + offset;
   char* s = scan_str(base_s, FALSE, FALSE);
+  if (s != base_s && sv_len(PL_lex_stuff) > remaining) {
+    int ret = (s - SvPVX(PL_linestr)) + remaining;
+    sv_catsv(line_copy, PL_linestr);
+    dd_set_linestr(aTHX_ SvPV_nolen(line_copy));
+    SvREFCNT_dec(line_copy);
+    return ret;
+  }
   return s - base_s;
 }