Distinguish C- and perly- literals - PERLY_SLASH

1 files changed, 2 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 92d87d56dd..d6b7caeae9 100644
--- a/toke.c
+++ b/toke.c
@@ -402,6 +402,7 @@ static struct debug_tokens {
     DEBUG_TOKEN (IVAL, PERLY_PLUS),
     DEBUG_TOKEN (IVAL, PERLY_QUESTION_MARK),
     DEBUG_TOKEN (IVAL, PERLY_SEMICOLON),
+    DEBUG_TOKEN (IVAL, PERLY_SLASH),
     DEBUG_TOKEN (IVAL, PERLY_SNAIL),
     DEBUG_TOKEN (IVAL, PERLY_STAR),
     DEBUG_TOKEN (IVAL, PERLY_TILDE),
@@ -2608,7 +2609,7 @@ S_sublex_done(pTHX)
 		 + PL_parser->herelines;
 	    PL_parser->herelines = 0;
 	}
-	return '/';
+	return PERLY_SLASH;
     }
     else {
 	const line_t l = CopLINE(PL_curcop);