Correct my comment, so that it's actually useful. :-)

p4raw-id: //depot/perl@27043

diff --git a/sv.c b/sv.c
index e2304e6..9afb6ce 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3270,7 +3270,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
        }
        if (sflags & SVp_IOK) {
            /* Must do this otherwise some other overloaded use of 0x80000000
-              gets confused. Probably 0x80000000 */
+              gets confused. Probably SVprv_WEAKREF */
            if (sflags & SVf_IVisUV)
                SvIsUV_on(dstr);
            SvIV_set(dstr, SvIVX(sstr));