diff options
| author | Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de> | 2003-12-08 09:17:46 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-08 07:37:27 +0000 |
| commit | df8c69647dfe89de227fd81e7ece25070f8b880e (patch) | |
| tree | 91af5b45e56a612afce027e51645bd6b8e70dc72 /hv.c | |
| parent | 988e6e7e0f6b44b3b1bb6149117affb3c43e8600 (diff) | |
| download | perl-df8c69647dfe89de227fd81e7ece25070f8b880e.tar.gz | |
iterator reset moved to hv.c (was: [PATCH] SCALAR/FIRSTKEY for tied hashes in scalar context)
Message-id: <20031208071746.GA594@ethan>
p4raw-id: //depot/perl@21869
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1452,7 +1452,7 @@ Perl_hv_clear(pTHX_ HV *hv) } } } - return; + goto reset; } hfreeentries(hv); @@ -1466,6 +1466,8 @@ Perl_hv_clear(pTHX_ HV *hv) HvHASKFLAGS_off(hv); HvREHASH_off(hv); + reset: + HvEITER(hv) = NULL; } /* |