diff options
| author | Vincent Pit <perl@profvince.com> | 2012-06-22 15:55:55 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2012-06-22 15:56:29 +0200 |
| commit | 83f29afad70b612d23a170f28fca57f0c8ca24af (patch) | |
| tree | 9f78339bae9fdd7957da5b2283e39cce20274318 /mg_vtable.h | |
| parent | 7762c3748b5616504fc9a8c5dd0c0e078d85eec5 (diff) | |
| download | perl-83f29afad70b612d23a170f28fca57f0c8ca24af.tar.gz | |
Reset the iterator when an array is cleared
This fixes RT #75596.
Diffstat (limited to 'mg_vtable.h')
| -rw-r--r-- | mg_vtable.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mg_vtable.h b/mg_vtable.h index d2379f26e9..3c73c2beff 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -147,7 +147,7 @@ EXTCONST char *PL_magic_vtable_names[magic_vtable_max]; #ifdef DOINIT EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = { { (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen, Perl_magic_setarylen, 0, 0, 0, 0, 0, 0 }, - { 0, 0, 0, 0, Perl_magic_freearylen_p, 0, 0, 0 }, + { 0, 0, 0, Perl_magic_cleararylen_p, Perl_magic_freearylen_p, 0, 0, 0 }, { 0, 0, 0, 0, Perl_magic_killbackrefs, 0, 0, 0 }, { 0, 0, 0, 0, 0, Perl_magic_copycallchecker, 0, 0 }, #ifdef USE_LOCALE_COLLATE |