> [guest - Wed Sep 28 23:42:02 2005]:
> 
> Bug still present on perl 5.8.7 cygwin-thread-multi-64int / nt4
> 
> $ perl test.pl
> In BLOCK1, $ENV{WANGO} = [undef]
> In BLOCK2, $ENV{WANGO} = [FOTANGO]
> In BLOCK3, $ENV{WANGO} = [FOTANGO]
>  ... BUT IT SHOULD BE undef!
> $ uname -a
> CYGWIN_NT-5.0 reini 1.5.19s(0.137/4/2) 20050814 16:02:26 i686 unknown
> unknown Cygwin
> 
> I'll report at the cygwin list
> 

The problem was with Perl's handling of environment variables when Perl 
is compiled with -DPERL_USE_SAFE_PUTENV.  This has been fixed with 
change #25737.

steve@redshirt ~/perl-current
$ perl5.8.7.exe test1.pl
In BLOCK1, $ENV{WANGO} = [undef]
In BLOCK2, $ENV{WANGO} = [FOTANGO]
In BLOCK3, $ENV{WANGO} = [FOTANGO]
   ... BUT IT SHOULD BE undef!
steve@redshirt ~/perl-current
$ ./perl test1.pl
In BLOCK1, $ENV{WANGO} = [undef]
In BLOCK2, $ENV{WANGO} = [FOTANGO]
In BLOCK3, $ENV{WANGO} = [undef]