[ 24919]
No need to set flags twice.
p4raw-link: @24919 on //depot/perl:
a7f5e44d3c17dca4fbe187441ce453de0886cdf3
p4raw-id: //depot/maint-5.8/perl@25670
p4raw-integrated: from //depot/perl@24919 'edit in' av.c (@24871..)
av = (AV*)NEWSV(3,0);
sv_upgrade((SV *)av, SVt_PVAV);
- AvREAL_on(av);
+ /* sv_upgrade does AvREAL_only() */
AvALLOC(av) = 0;
SvPV_set(av, (char*)0);
AvMAX(av) = AvFILLp(av) = -1;
av = (AV*)NEWSV(8,0);
sv_upgrade((SV *) av,SVt_PVAV);
- AvFLAGS(av) = AVf_REAL;
+ /* sv_upgrade does AvREAL_only() */
if (size) { /* "defined" was returning undef for size==0 anyway. */
register SV** ary;
register I32 i;