From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 14 Nov 2001 21:00:23 +0000 (+0000)
Subject: Add comments to mark where $^X is being handled.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee2f7564be77581fd9f8286aa19a5636c1c1d015;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@13000
---

diff --git a/perl.c b/perl.c
index 8bb4f56..a8f6ceb 100644
--- a/perl.c
+++ b/perl.c
@@ -3440,7 +3440,7 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
 	magicname("0", "0", 1);
 #endif
     }
-    if ((tmpgv = gv_fetchpv("\030",TRUE, SVt_PV)))
+    if ((tmpgv = gv_fetchpv("\030",TRUE, SVt_PV))) /* $^X */
 #ifdef OS2
 	sv_setpv(GvSV(tmpgv), os2_execname(aTHX));
 #else
diff --git a/toke.c b/toke.c
index b5e6b9c..1657f1e 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);