develooper Front page | perl.perl5.porters | Postings from July 2005

[perl #36665] delete $ENV{FOO} leaves $FOO visible in subprocesses on Cygwin Perl

Thread Previous
From:
Andrew Ho
Date:
July 27, 2005 04:09
Subject:
[perl #36665] delete $ENV{FOO} leaves $FOO visible in subprocesses on Cygwin Perl
Message ID:
rt-3.0.11-36665-118337.1.47192805969368@perl.org
# New Ticket Created by  Andrew Ho 
# Please include the string:  [perl #36665]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36665 >


This is a bug report for perl from andrew@tellme.com,
generated with the help of perlbug 1.35 running under perl v5.8.7.


-----------------------------------------------------------------
[Please enter your report here]

For at least Perl 5.8.7 on Cygwin, delete()ing an environment variable
does not apparently remove that variable from the environment of a
subprocess. Here is a short repro case:

     #!/usr/bin/perl
     use strict;
     use warnings;

     $ENV{SHOULD_NEVER_BE_SEEN} = "hello world";
     delete($ENV{SHOULD_NEVER_BE_SEEN});
     system("printenv | grep SHOULD_NEVER_BE_SEEN");

On Unix systems this script appropriately prints nothing.
On an up to date Cygwin installation this prints "hello world".

This bug manifested itself as a problem with Test::Harness on Cygwin
Perl. For context, see the e-mail thread around this summary message:
http://cygwin.com/ml/cygwin/2005-07/msg01201.html


[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
     category=core
     severity=medium
---
Site configuration information for perl v5.8.7:

Configured by gerrit at Fri Jul  8 20:35:50     2005.

Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
   Platform:
     osname=cygwin, osvers=1.5.18(0.13242), archname=cygwin-thread-multi-64int
     uname='cygwin_nt-5.1 inspiron 1.5.18(0.13242) 2005-07-02 20:30 i686 unknown unknown cygwin '
     config_args='-de -Dmksymlinks -Duse64bitint -Dusethreads -Doptimize=-O3 -Dman3ext=3pm -Dusesitecustomize'
     hint=recommended, useposix=true, d_sigaction=define
     usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
     useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
     use64bitint=define use64bitall=undef uselongdouble=undef
     usemymalloc=y, bincompat5005=undef
   Compiler:
     cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -pipe -I/usr/local/include',
     optimize='-O3',
     cppflags='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -pipe -I/usr/local/include'
     ccversion='', gccversion='3.4.4 (cygming special) (gdc 0.12, using dmd 0.125)', gccosandvers=''
     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
     ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
     alignbytes=8, prototype=define
   Linker and Libraries:
     ld='ld2', ldflags =' -s -L/usr/local/lib'
     libpth=/usr/local/lib /usr/lib /lib
     libs=-lgdbm -ldb -lcrypt -lgdbm_compat
     perllibs=-lcrypt -lgdbm_compat
     libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a
     gnulibc_version=''
   Dynamic Linking:
     dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
     cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'

Locally applied patches:


---
@INC for perl v5.8.7:
     /usr/lib/perl5/5.8/cygwin
     /usr/lib/perl5/5.8
     /usr/lib/perl5/site_perl/5.8/cygwin
     /usr/lib/perl5/site_perl/5.8
     /usr/lib/perl5/site_perl/5.8
     /usr/lib/perl5/vendor_perl/5.8/cygwin
     /usr/lib/perl5/vendor_perl/5.8
     /usr/lib/perl5/vendor_perl/5.8
     .

---
Environment for perl v5.8.7:
     HOME=/cygdrive/c/Documents and Settings/andrew/home
     LANG (unset)
     LANGUAGE (unset)
     LD_LIBRARY_PATH (unset)
     LOGDIR (unset)
     PATH=/cygdrive/c/Documents and Settings/andrew/home/bin:/usr/local/bin:/usr/local/sbin:/usr/bin:/usr/sbin:/bin:/sbin:/cygdrive/c/WINDOWS:/cygdrive/c/WINDOWS/system32
     PERL_BADLANG (unset)
     SHELL (unset)


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About