Stop ck_rvconst from treating GV constants as strings

[perl5.git] / op.c

diff --git a/op.c b/op.c
index ff3855e..e017842 100644 (file)
--- a/op.c
+++ b/op.c
@@ -8833,7 +8833,7 @@ Perl_ck_rvconst(pTHX_ OP *o)
        SV * const kidsv = kid->op_sv;
 
        /* Is it a constant from cv_const_sv()? */
-       if (SvROK(kidsv) && SvREADONLY(kidsv)) {
+       if ((SvROK(kidsv) || isGV_with_GP(kidsv)) && SvREADONLY(kidsv)) {
            return o;
        }
        if (SvTYPE(kidsv) == SVt_PVAV) return o;