Re: New ModPerl-Registry/t/ithreads.t test fails on Win32

[Stas Bekman]

futher reduced it to:
#!/usr/bin/perl -T
use threads;
local $0 = "test"; # <== XXX: leaks scalar
my $thr = threads->new(sub {});
$thr->join;        # <== XXX: triggers the leak
Adding Devel::Peek, shows that the leaked scalar is coming from MG_OBJ 
attached to $0 in the thread. This magic object is a taint magic (and it 
happens under -T).

  MAGIC = 0x816e2d8
    MG_VIRTUAL = &PL_vtbl_taint
    MG_TYPE = PERL_MAGIC_taint(t)
    MG_OBJ = 0x816dc1c
    MG_LEN = 2
I've submitted the bug report to p5p.
--
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]