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

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

p4raw-id: //depot/perl@11612

diff --git a/pp_sys.c b/pp_sys.c
index ac7ca20..2c6ad8e 100644 (file)
--- 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";