Perl: hide a local varaible used on ly DEBUG mdoe

Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · Jan 16, 2023 · fcccaff · fcccaff
1 parent 9a8dc5f
commit fcccaff
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/parsers/perl.c b/parsers/perl.c
@@ -601,7 +601,9 @@ static void collectHereDocMarkers (struct hereDocMarkerManager *mgr,
 								   const unsigned char *line)
 {
 	const unsigned char *cp = line;
+#ifdef DEBUG
 	const unsigned char *last = cp;
+#endif
 	while ((cp = collectHereDocMarker(mgr, cp)) != NULL)
 		Assert(last < cp);
 }