Re: [ID 20010806.008] tied hashes, invocation of FIRSTKEY

Message-ID: <20010807171605.K526@lustre.dyn.wiw.org>

p4raw-id: //depot/perl@11612

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";