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 /mg.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 'mg.c')
-rw-r--r-- | mg.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -1539,11 +1539,6 @@ Perl_magic_wipepack(pTHX_ SV *sv, MAGIC *mg) POPSTACK; LEAVE; - if (SvTYPE(sv) == SVt_PVHV) - /* must reset iterator otherwise Perl_magic_scalarpack - * wont report a false value on a cleared hash */ - HvEITER((HV*)sv) = NULL; - return 0; } |