Add comments to mark where $^X is being handled.

p4raw-id: //depot/perl@13000

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index b5e6b9caa2..1657f1ec34 100644
--- a/toke.c
+++ b/toke.c
@@ -2598,7 +2598,7 @@ Perl_yylex(pTHX)
 		     * at least, set argv[0] to the basename of the Perl
 		     * interpreter. So, having found "#!", we'll set it right.
 		     */
-		    SV *x = GvSV(gv_fetchpv("\030", TRUE, SVt_PV));
+		    SV *x = GvSV(gv_fetchpv("\030", TRUE, SVt_PV)); /* $^X */
 		    assert(SvPOK(x) || SvGMAGICAL(x));
 		    if (sv_eq(x, CopFILESV(PL_curcop))) {
 			sv_setpvn(x, ipath, ipathend - ipath);