hash iterator position not preserved by local

[p5pRT]

Migrated from rt.perl.org#1673 (status was 'resolved')

Searchable as RT1673$

[p5pRT]

From @ysth

with code like​:

while (my ($k\,$v) = each %ENV) { local %ENV; $r = keys %ENV; print "$k=$v\n" }

the keys in the loop resets the iterator for the original %ENV hash\, resulting in the each always returning the first key\,value pair.

Perl Info

``` Site configuration information for perl 5.00553: Configured by ilya at Thu Nov 5 01:10:17 EST 1998. Summary of my perl5 (5.0 patchlevel 5 subversion 53) configuration: Platform: osname=os2, osvers=2.30, archname=os2 uname='os2 karetnikova 2 2.30 i386 ' hint=recommended, useposix=true, d_sigaction=define usethreads=undef useperlio=undef d_sfio=undef Compiler: cc='gcc', optimize='-O2 -fomit-frame-pointer -malign-loops=2 -malign-jumps=2 -malign-functions=2 -s', gccversion=2.7.2.1 cppflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I.' ccflags ='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I.' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 alignbytes=4, usemymalloc=y, prototype=define Linker and Libraries: ld='gcc', ldflags ='-Zexe -Zomf -Zmt -Zcrtdll -Zstack 32000' libpth=d:/emx.add/lib d:/emx/lib D:/DEVTOOLS/OPENGL/LIB d:/emx/lib/mt libs=-lsocket -lm -lbsd libc=d:/emx/lib/mt/c_import.lib, so=dll, useshrplib=true, libperl=libperl.lib Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' ' cccdlflags='-Zdll', lddlflags='-Zdll -Zomf -Zmt -Zcrtdll -s' Locally applied patches: @INC for perl 5.00553: d:/PERLLIB/LIB/5.00553/os2 d:/PERLLIB/LIB/5.00553 d:/PERLLIB/LIB/site_perl/5.00553/os2 d:/PERLLIB/LIB/site_perl/5.00553 . Environment for perl 5.00553: HOME=d:\os2apps\yarn\user LANG=en_us LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=d:\bin;C:\OS2;C:\OS2\SYSTEM;C:\OS2\INSTALL;C:\;C:\OS2\MDOS;C:\OS2\APPS;C:\MMOS2;d:\os2apps\util;d:\DOSAPPS\UTIL;c:\sio;D:\WINDOWS;d:\pdksh;d:\emx\bin;d:\xfree86\bin;d:\emacs\19.33\bin;d:\ispell PERLLIB_PREFIX=F:/perllib/lib;d:\PERLLIB\LIB PERL_BADLANG (unset) PERL_SH_DIR=d:\BIN SHELL (unset) ```

[p5pRT]

From The RT System itself

This is more than likely a misunderstanding between the use of local() and my().