olly betts veyjhbyfbuaeanjperlorg new ticket created olly betts please include string perl 47045 subject line future correspondence issue bug report perl tcppsurvexcom generated help perlbug 135 running perl v588 please enter report perldoc perlmod says like clone clone_skip called per package however called cloning starts context parent thread returns true value objects class cloned rather copied unblessed undef values tests copies unblessed arent undef heres simple example classpm package class use strict sub clone_skip 1 sub new bless 1 cloneskippl usrbinperl w use strict use class use threads obj classnew sub check_obj shift print refobj refobjn print definedobj definedobjnn check_objmain thread1 threadscreatesub check_objthread 1 thread1join check_objmain output perl clone_skippl main refobj class main definedobj 1 thread refobj scalar thread definedobj 1 main refobj class main definedobj 1 documentation leads expect third fourth nonblank lines thread refobj thread definedobj get change cloneskippl thread1 threadscreatesub obj undef check_objthread 1 documented behaviour seems sensible think bug implementation rather documentation cheers olly please change anything line flags categorycore severitylow site configuration information perl v588 configured debian project fri sep 28 223435 gmt 2007 summary perl5 revision 5 version 8 subversion 8 configuration platform osnamelinux osvers26157 archnamex86_64linuxgnuthreadmulti unamelinux yellow 26157 1 smp sun sep 23 135152 utc 2007 x86_64 gnulinux config_argsdusethreads duselargefiles dccflagsddebian dcccdlflagsfpic darchnamex86_64linuxgnu dprefixusr dprivlibusrshareperl58 darchlibusrlibperl58 dvendorprefixusr dvendorlibusrshareperl5 dvendorarchusrlibperl5 dsiteprefixusrlocal dsitelibusrlocalshareperl588 dsitearchusrlocallibperl588 dman1dirusrsharemanman1 dman3dirusrsharemanman3 dsiteman1dirusrlocalmanman1 dsiteman3dirusrlocalmanman3 dman1ext1 dman3ext3perl dpagerusrbinsensiblepager uafs ud_csh uusesfio uusenm duseshrplib dlibperllibperlso588 dd_dosuid des hintrecommended useposixtrue d_sigactiondefine usethreadsdefine use5005threadsundef useithreadsdefine usemultiplicitydefine useperliodefine d_sfioundef uselargefilesdefine usesocksundef use64bitintdefine use64bitalldefine uselongdoubleundef usemymallocn bincompat5005undef compiler cccc ccflags d_reentrant d_gnu_source dthreads_have_pids ddebian fnostrictaliasing pipe iusrlocalinclude d_largefile_source d_file_offset_bits64 optimizeo2 cppflagsd_reentrant d_gnu_source dthreads_have_pids ddebian fnostrictaliasing pipe iusrlocalinclude ccversion gccversion413 20070831 prerelease ubuntu 41216ubuntu1 gccosandvers intsize4 longsize8 ptrsize8 doublesize8 byteorder12345678 d_longlongdefine longlongsize8 d_longdbldefine longdblsize16 ivtypelong ivsize8 nvtypedouble nvsize8 off_toff_t lseeksize8 alignbytes8 prototypedefine linker libraries ldcc ldflags lusrlocallib libpthusrlocallib lib usrlib libslgdbm lgdbm_compat ldb ldl lm lpthread lc lcrypt perllibsldl lm lpthread lc lcrypt libcliblibc261so soso useshrplibtrue libperllibperlso588 gnulibc_version261 dynamic linking dlsrcdl_dlopenxs dlextso d_dlsymunundef ccdlflagswle cccdlflagsfpic lddlflagsshared lusrlocallib locally applied patches inc perl v588 etcperl usrlocallibperl588 usrlocalshareperl588 usrlibperl5 usrshareperl5 usrlibperl58 usrshareperl58 usrlocallibsite_perl usrlocallibperl587 usrlocalshareperl587 usrlocallibperl584 usrlocalshareperl584 environment perl v588 homehomeolly langen_gbutf8 language unset ld_library_path unset logdir unset pathusrlocalsbinusrlocalbinusrsbinusrbinsbinbinusrbinx11usrgames perl_badlang unset shellbinbash wed 06 aug 2008 200447 0700 perl 47045 clone_skip doesnt result undef copies