From 83f29afad70b612d23a170f28fca57f0c8ca24af Mon Sep 17 00:00:00 2001
From: Vincent Pit <perl@profvince.com>
Date: Fri, 22 Jun 2012 15:55:55 +0200
Subject: Reset the iterator when an array is cleared

This fixes RT #75596.
---
 regen/mg_vtable.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regen')

diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl
index 5d0710f904..bfc13e264d 100644
--- a/regen/mg_vtable.pl
+++ b/regen/mg_vtable.pl
@@ -121,7 +121,7 @@ my %sig =
      'isa' => {set => 'setisa', clear => 'clearisa'},
      'isaelem' => {set => 'setisa'},
      'arylen' => {get => 'getarylen', set => 'setarylen', const => 1},
-     'arylen_p' => {free => 'freearylen_p'},
+     'arylen_p' => {clear => 'cleararylen_p', free => 'freearylen_p'},
      'mglob' => {set => 'setmglob'},
      'nkeys' => {get => 'getnkeys', set => 'setnkeys'},
      'taint' => {get => 'gettaint', set => 'settaint'},
-- 
cgit v1.2.1