Oops. What is looking at an array's SvIVX()?

p4raw-id: //depot/perl@24548

diff --git a/sv.c b/sv.c
index 8fe9be0..0a27714 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1872,6 +1872,7 @@ Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt)
            AvALLOC(sv) = 0;
            AvARYLEN(sv)= 0;
            AvREAL_only(sv);
+           SvIVX(sv) = 0;
        }
        /* to here.  */
        /* XXX? Only SVt_NULL is ever upgraded to AV or HV?  */