This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c:ck_rvconst: Allocate GV pad slots like constants
[perl5.git] / op.c
diff --git a/op.c b/op.c
index e017842..357a524 100644 (file)
--- a/op.c
+++ b/op.c
@@ -8886,7 +8886,7 @@ Perl_ck_rvconst(pTHX_ OP *o)
 #ifdef USE_ITHREADS
            /* XXX hack: dependence on sizeof(PADOP) <= sizeof(SVOP) */
            assert (sizeof(PADOP) <= sizeof(SVOP));
-           kPADOP->op_padix = pad_alloc(OP_GV, SVs_PADTMP);
+           kPADOP->op_padix = pad_alloc(OP_GV, SVf_READONLY);
            SvREFCNT_dec(PAD_SVl(kPADOP->op_padix));
            GvIN_PAD_on(gv);
            PAD_SETSV(kPADOP->op_padix, MUTABLE_SV(SvREFCNT_inc_simple_NN(gv)));