Goodbye xav_arylen. You won't be missed that much.

So now there's a buy 5 get one free offer on PVAV bodies.

p4raw-id: //depot/perl@24619

1 files changed, 6 insertions, 6 deletions

diff --git a/pp.c b/pp.c
index f63b372edf..97a5cfba8a 100644
--- a/pp.c
+++ b/pp.c
@@ -295,13 +295,13 @@ PP(pp_av2arylen)
 {
     dSP;
     AV *av = (AV*)TOPs;
-    SV *sv = AvARYLEN(av);
-    if (!sv) {
-	AvARYLEN(av) = sv = NEWSV(0,0);
-	sv_upgrade(sv, SVt_IV);
-	sv_magic(sv, (SV*)av, PERL_MAGIC_arylen, Nullch, 0);
+    SV **sv = Perl_av_arylen_p(aTHX_ (AV*)av);
+    if (!*sv) {
+	*sv = NEWSV(0,0);
+	sv_upgrade(*sv, SVt_PVMG);
+	sv_magic(*sv, (SV*)av, PERL_MAGIC_arylen, Nullch, 0);
     }
-    SETs(sv);
+    SETs(*sv);
     RETURN;
 }