This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
perl.h can include embed.h in the same location on all operating systems.
[perl5.git]
/
hv.c
diff --git
a/hv.c
b/hv.c
index
1019b31
..
27ce6a5
100644
(file)
--- a/
hv.c
+++ b/
hv.c
@@
-1897,8
+1897,7
@@
S_hv_auxinit(HV *hv) {
+ sizeof(struct xpvhv_aux), char);
}
HvARRAY(hv) = (HE**) array;
- /* SvOOK_on(hv) attacks the IV flags. */
- SvFLAGS(hv) |= SVf_OOK;
+ SvOOK_on(hv);
iter = HvAUX(hv);
iter->xhv_riter = -1; /* HvRITER(hv) = -1 */