Fix bug [perl #24212] : improper error recovery in the

tokenizer after an unknown filetest operator.

p4raw-id: //depot/perl@21452

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++;