Change 13000 by jhi@alpha on 2001/11/14 21:00:23
Add comments to mark where $^X is being handled.
Affected files ...
.... //depot/perl/perl.c#388 edit
.... //depot/perl/toke.c#396 edit
Differences ...
==== //depot/perl/perl.c#388 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Wed Nov 14 14:15:05 2001
+++ perl/perl.c Wed Nov 14 14:15:05 2001
@@ -3440,7 +3440,7 @@
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
==== //depot/perl/toke.c#396 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Wed Nov 14 14:15:05 2001
+++ perl/toke.c Wed Nov 14 14:15:05 2001
@@ -2598,7 +2598,7 @@
* 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);
End of Patch.
