Perl: add an assertion

Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · Dec 9, 2022 · dc501cb · dc501cb
1 parent 97fb25a
commit dc501cb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/parsers/perl.c b/parsers/perl.c
@@ -512,7 +512,9 @@ static void collectHereDocMarkers (struct hereDocMarkerManager *mgr,
 								   const unsigned char *line)
 {
 	const unsigned char *cp = line;
-	while ((cp = collectHereDocMarker(mgr, cp)) != NULL);
+	const unsigned char *last = cp;
+	while ((cp = collectHereDocMarker(mgr, cp)) != NULL)
+		Assert(last < cp);
 }
 
 static bool isInHereDoc (struct hereDocMarkerManager *mgr,