[perl #98204] Shared objects not destoryed

Front page | perl.perl5.porters | Postings from August 2011

[perl #98204] Shared objects not destoryed

Thread Previous

From:

Jerry D. Hedden

Date:

August 31, 2011 15:15

Subject:

[perl #98204] Shared objects not destoryed

Message ID:

rt-3.6.HEAD-31297-1314828936-1541.98204-75-0@perl.org

# New Ticket Created by  "Jerry D. Hedden" 
# Please include the string:  [perl #98204]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=98204 >


This is a bug report for perl from jdhedden[at]cpan[dot]org,
generated with the help of perlbug 1.39 running under perl 5.12.4.

-----------------------------------------------------------------
[Please describe your issue here]

threads::shared objects stored inside other threads::shared structures are
not properly destoryed.  When a threads::shared object is 'removed' from a
threads::shared structure (e.g., a hash), the object's DESTROY method is not
called.  The attached script shows the cases when this occurs.

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=library
    severity=medium
    module=threads::shared
---
Site configuration information for perl 5.12.4:

Configured by Jerry at Sat Jul  2 23:21:14 EDT 2011.

Summary of my perl5 (revision 5 version 12 subversion 4 patch 47432)
configuration:
  Snapshot of: ea42574774cb2e3ace8e32e92fa69595c6c233e9
  Platform:
    osname=cygwin, osvers=1.5.25(0.15642), archname=cygwin-thread-multi-64int
    uname='cygwin_nt-5.1 seymour 1.5.25(0.15642) 2008-06-12 19:34 i686 cygwin '
    config_args='-de -Duse64bitint -Dusethreads -Uusemymalloc
-Dinc_version_list=none -Dnoextensions=Devel/DProf Devel/Peek
File/CheckTree Filter/Util/Call GDBM_File Hash/Util/FieldHash
I18N/Langinfo IPC/SysV Math/BigInt/FastCalc NDBM_File ODBM_File
Sys/Syslog Text/Soundex Time/Piece Unicode/Normalize attrs mro re
Archive/Extract Archive/Tar Attribute/Handlers B/Debug B/Lint
Class/ISA CGI CPAN::Meta::YAML CPANPLUS CPANPLUS/Dist/Build
Devel/SelfStubber Digest Dumpvalue Env File/Fetch FileCache
Filter/Simple HTTP/Tiny I18N/Collate I18N/LangTags IO/Zlib IPC/Open2
JSON::PP Locale/Codes Locale/Maketext Log/Message Log/Message/Simple
Math/BigInt Math/BigRat Math/Complex Memoize Module/Build
Module/Loaded Module/Pluggable NEXT Object/Accessor Package/Constants
Parse/CPAN/Meta PerlIO/via/QuotedPrint Pod/Html Pod/LaTeX Pod/Plainer
SelfLoader Switch Term/UI Text/Balanced Tie/Memoize Unicode/Collate
autodie bignum encoding/warnings -A append:ccflags= -DNO_MATHOMS -A
define:optimize=-Os -pipe -funit-at-a-time -march=pentium4
-mfpmath=sse -mieee-fp -mmmx -msse -msse2'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__
-DNO_MATHOMS -fno-strict-aliasing -pipe',
    optimize='-Os -pipe -funit-at-a-time -march=pentium4 -mfpmath=sse
-mieee-fp -mmmx -msse -msse2',
    cppflags='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -DNO_MATHOMS
-fno-strict-aliasing -pipe'
    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='g++', ldflags =' -Wl,--enable-auto-import
-Wl,--export-all-symbols -Wl,--stack,8388608
-Wl,--enable-auto-image-base -s -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib /lib
    libs=-lgdbm -ldl -lcrypt -lgdbm_compat
    perllibs=-ldl -lcrypt
    libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=cygperl5_12_4.dll
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
    cccdlflags=' ', lddlflags=' --shared  -Wl,--enable-auto-import
-Wl,--export-all-symbols -Wl,--stack,8388608
-Wl,--enable-auto-image-base -s -L/usr/local/lib'

Locally applied patches:


---
@INC for perl 5.12.4:
    /usr/lib/perl5/site_perl/5.12.4/cygwin
    /usr/lib/perl5/site_perl/5.12.4
    /usr/lib/perl5/5.12.4/cygwin
    /usr/lib/perl5/5.12.4
    .

---
Environment for perl 5.12.4:
    CYGWIN=ntsec
    HOME=/home/Jerry
    LANG=C
    LANGUAGE=C
    LC_ALL=C
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/Jerry/bin:/usr/local/src/perl/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/c/Dev-Cpp/bin/:/c/WINDOWS/system32:/c/WINDOWS:/c/WINDOWS/System32/Wbem:/c/Program
Files/ATI Technologies/ATI Control
Panel:/c/PROGRA~1/COMMON~1/SONICS~1:/c/Program Files/ATI
Technologies/ATI.ACE/Core-Static:/c/WINDOWS/system32/WindowsPowerShell/v1.0:/c/WINDOWS/system32/WindowsPowerShell/v1.0:/c/Program
Files/QuickTime/QTSystem/:.
    PERLIO=perlio
    PERL_BADLANG (unset)
    SHELL (unset)

Thread Previous