X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e90a17ab40a254b2139a4cbb2cbad46cd66df125..9538abec6048e8a6cce882124ce279a7db7acfd0:/toke.c

diff --git a/toke.c b/toke.c
index c3d3c97..e5ef340 100644
--- a/toke.c
+++ b/toke.c
@@ -5856,12 +5856,12 @@ Perl_yylex(pTHX)
 		    else
 			/* skip plain q word */
 			while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF))
-			     t += UTF8SKIP(t);
+			    t += UTF ? UTF8SKIP(t) : 1;
 		}
 		else if (isWORDCHAR_lazy_if(t,UTF)) {
-		    t += UTF8SKIP(t);
+		    t += UTF ? UTF8SKIP(t) : 1;
 		    while (t < PL_bufend && isWORDCHAR_lazy_if(t,UTF))
-			 t += UTF8SKIP(t);
+			t += UTF ? UTF8SKIP(t) : 1;
 		}
 		while (t < PL_bufend && isSPACE(*t))
 		    t++;