[svn:ponie] r401 - branches/5.9.3merge/perl

Author: nicholas
Date: Fri Mar 17 14:34:50 2006
New Revision: 401

Modified:
   branches/5.9.3merge/perl/hv.c

Log:
Remove an assertion from hv.c that isn't true with the old hv_iterinit().


Modified: branches/5.9.3merge/perl/hv.c
==============================================================================
--- branches/5.9.3merge/perl/hv.c	(original)
+++ branches/5.9.3merge/perl/hv.c	Fri Mar 17 14:34:50 2006
@@ -1814,8 +1814,10 @@
     }
 #endif
 
-    /* hv_iterint now ensures this.  */
-    assert (HvARRAY(hv));
+    if (!HvARRAY(hv))
+	Newxz(*((char **)&(HvARRAY(hv))),
+	      PERL_HV_ARRAY_ALLOC_BYTES(HvMAX(hv)+1),
+	      char);
 
     /* At start of hash, entry is NULL.  */
     if (entry)