X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=av.c;h=b616a209eee8a594bb55ac97c89ed3459e0818db;hb=aebd1ac7983c6d00ee0b79f7eb3bc5904d3b2bdf;hp=3eaeea8ecd6155320311ffc143df57f4cbd5f969;hpb=2b573acec7886e18e5f2804e8915073100dce2e4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/av.c b/av.c
index 3eaeea8..b616a20 100644
--- a/av.c
+++ b/av.c
@@ -864,6 +864,8 @@ Perl_av_delete(pTHX_ AV *av, I32 key, I32 flags)
 	SvREFCNT_dec(sv);
 	sv = Nullsv;
     }
+    else if (AvREAL(av))
+	sv = sv_2mortal(sv);
     return sv;
 }