Correct Out of memory error for OP_AASSIGN. Bug #64830

Changes

@@ -52,5 +52,8 @@
 0.12 - Sun Jul 27              2008
     Get B::UNOP::first in a well behaved manner
 
-0.12 - Tue Nov 11              2208
+0.13 - Tue Nov 11              2008
     Fixed a compilation error for unthreaded perl
+
+... - Sun Jan 16              2010
+    Fixed "Out of memory during array extend" for aassign

Trace.xs

@@ -165,10 +165,13 @@ av_make_with_refs(pTHX_ SV**from, SV**to) {
   SV **i;
   AV *av = newAV();
 
-  av_extend(av, (to - from) / sizeof(SV **));
+  /* Bug #64830 */
+  if (to > from) {
+    av_extend(av, (to - from) / sizeof(SV **));
 
-  for (i = from; i <= to; i++) {
-    av_push(av, newRV_inc(*i));
+    for (i = from; i <= to; i++) {
+      av_push(av, newRV_inc(*i));
+    }
   }
 
   return av;

t/10aassign.t

@@ -0,0 +1,14 @@
+#!perl
+use Test::More tests => 1;
+use Runops::Trace;
+
+Runops::Trace::set_tracer(sub {});
+
+Runops::Trace::enable_tracing();
+out_of_memory_during_array_extend();
+Runops::Trace::disable_tracing();
+pass(q(Didn't OOM));
+
+sub out_of_memory_during_array_extend {
+    my @array = @_;
+}