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

diff --git a/Declare.xs b/Declare.xs
index 08bbec6..edfbc0d 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -187,7 +187,7 @@ int dd_toke_scan_ident(pTHX_ int offset) {
 }
 
 int dd_toke_scan_str(pTHX_ int offset) {
-  int remaining = sv_len(PL_linestr) - offset;
+  STRLEN 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);
@@ -330,6 +330,10 @@ STATIC OP *dd_ck_const(pTHX_ OP *o, void *user_data) {
 
   PERL_UNUSED_VAR(user_data);
 
+  if (DD_HAVE_PARSER && PL_expect == XOPERATOR) {
+    return o;
+  }
+
   /* if this is set, we just grabbed a delimited string or something,
      not a bareword, so NO TOUCHY */