1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 0b934c1a79..b6b81d244b 100644
--- a/toke.c
+++ b/toke.c
@@ -2878,7 +2878,7 @@ Perl_yylex(pTHX)
 			"### '-%c' looked like a file test but was not\n",
 			tmp);
 		} );
-		s -= 2;
+		s = --PL_bufptr;
 	    }
 	}
 	tmp = *s++;