X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2ee13fe9febdc1ee6f755724a7eaf0c7728da957..0f1723e1474927cd055b272619999a83bd882260:/perl.c

diff --git a/perl.c b/perl.c
index 45bc4ae..39c555c 100644
--- a/perl.c
+++ b/perl.c
@@ -1429,13 +1429,14 @@ S_set_caret_X(pTHX) {
     dVAR;
     GV* tmpgv = gv_fetchpvs("\030", GV_ADD|GV_NOTQUAL, SVt_PV); /* $^X */
     if (tmpgv) {
+	SV *const caret_x = GvSV(tmpgv);
 #ifdef HAS_PROCSELFEXE
-	S_procself_val(aTHX_ GvSV(tmpgv), PL_origargv[0]);
+	S_procself_val(aTHX_ caret_x, PL_origargv[0]);
 #else
 #ifdef OS2
-	sv_setpv(GvSVn(tmpgv), os2_execname(aTHX));
+	sv_setpv(caret_x, os2_execname(aTHX));
 #else
-	sv_setpv(GvSVn(tmpgv),PL_origargv[0]);
+	sv_setpv(caret_x, PL_origargv[0]);
 #endif
 #endif
     }