}
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);
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 */