From ee2f7564be77581fd9f8286aa19a5636c1c1d015 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 14 Nov 2001 21:00:23 +0000 Subject: [PATCH] Add comments to mark where $^X is being handled. p4raw-id: //depot/perl@13000 --- perl.c | 2 +- toke.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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); -- 2.7.4