summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorAbhijit Menon-Sen <ams@wiw.org>2001-08-07 22:46:05 +0530
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-08 12:14:56 +0000
commit03c6e78a0ff65edc6cf70aa8f6dcb50b664ccbef (patch)
tree338e4a08049bc7356f458ae8198df99ab2594a39 /pp_sys.c
parent412a0271bc0b92943e80cacf6aa67b43ca8efce0 (diff)
downloadperl-03c6e78a0ff65edc6cf70aa8f6dcb50b664ccbef.tar.gz
Re: [ID 20010806.008] tied hashes, invocation of FIRSTKEY
Message-ID: <20010807171605.K526@lustre.dyn.wiw.org> p4raw-id: //depot/perl@11612
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/pp_sys.c b/pp_sys.c
index ac7ca20c2a..2c6ad8e5ee 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -748,6 +748,7 @@ PP(pp_tie)
switch(SvTYPE(varsv)) {
case SVt_PVHV:
methname = "TIEHASH";
+ HvEITER((HV *)varsv) = Null(HE *);
break;
case SVt_PVAV:
methname = "TIEARRAY";