summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2012-06-22 15:55:55 +0200
committerVincent Pit <perl@profvince.com>2012-06-22 15:56:29 +0200
commit83f29afad70b612d23a170f28fca57f0c8ca24af (patch)
tree9f78339bae9fdd7957da5b2283e39cce20274318 /embed.h
parent7762c3748b5616504fc9a8c5dd0c0e078d85eec5 (diff)
downloadperl-83f29afad70b612d23a170f28fca57f0c8ca24af.tar.gz
Reset the iterator when an array is cleared
This fixes RT #75596.
Diffstat (limited to 'embed.h')
-rw-r--r--embed.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/embed.h b/embed.h
index 260bee9974..efc19d80f8 100644
--- a/embed.h
+++ b/embed.h
@@ -1098,6 +1098,7 @@
#define list(a) Perl_list(aTHX_ a)
#define localize(a,b) Perl_localize(aTHX_ a,b)
#define magic_clear_all_env(a,b) Perl_magic_clear_all_env(aTHX_ a,b)
+#define magic_cleararylen_p(a,b) Perl_magic_cleararylen_p(aTHX_ a,b)
#define magic_clearenv(a,b) Perl_magic_clearenv(aTHX_ a,b)
#define magic_clearhint(a,b) Perl_magic_clearhint(aTHX_ a,b)
#define magic_clearhints(a,b) Perl_magic_clearhints(aTHX_ a,b)