[PATCH] sub aaa { print shift}; undef %::;

This stems a segfault coming from the above. There's a bug ID for this,
I think, but I'm afraid I'm too zonked to find it.

--- hv.c~	Mon Jul  2 00:13:03 2001
+++ hv.c	Mon Jul  2 00:13:17 2001
@@ -211,7 +211,7 @@
 
     /* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */
     entry = ((HE**)xhv->xhv_array)[hash & (I32) xhv->xhv_max];
-    for (; entry; entry = HeNEXT(entry)) {
+    for (; entry && HeKEY_hek(entry); entry = HeNEXT(entry)) {
 	if (HeHASH(entry) != hash)		/* strings can't be equal */
 	    continue;
 	if (HeKLEN(entry) != klen)

-- 
"He was a modest, good-humored boy.  It was Oxford that made him insufferable."

• [PATCH] sub aaa { print shift}; undef %::; by Simon Cozens
• Re: [PATCH] sub aaa { print shift}; undef %::; by Gurusamy Sarathy
• Re: [PATCH] sub aaa { print shift}; undef %::; by schwern
• Re: [PATCH] sub aaa { print shift}; undef %::; by schwern