[26301] in Perl-Users-Digest
Perl-Users Digest, Issue: 8480 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 3 18:05:19 2005
Date: Mon, 3 Oct 2005 15:05:05 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 3 Oct 2005 Volume: 10 Number: 8480
Today's topics:
Re: threads, XSUB allocated memory, destructors, destru xhoster@gmail.com
training? <mikee@mikee.ath.cx>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 03 Oct 2005 16:56:36 GMT
From: xhoster@gmail.com
Subject: Re: threads, XSUB allocated memory, destructors, destruction
Message-Id: <20051003125636.349$Yp@newsreader.com>
"Sisyphus" <sisyphus1@nomail.afraid.org> wrote:
>
> Anyway ... the output I get looks like this:
>
> Thread started
> Thread started
> Thread started
> 200 400 650
> All joined
> destroying int object
> int object destroyed
> destroying int object
> int object destroyed
> .
> .
> .
> destroying int object
> int object destroyed
> destroying int object
> Free to wrong pool b39078 not c5d040 during global destruction.
On linux, I just get a segfault.
...
> void DESTROY(SV * m) {
> printf("destroying int object\n");
printf("destroying int object %d\n", SvIV(SvRV(m)));
> /* Safefree((int *) SvIV(SvRV(m))); */
> free((int *) SvIV(SvRV(m)));
> printf("int object destroyed\n");
> }
For reasons I don't understand, it is trying to call DESTROY twice for each
object. It goes through calling DESTROY once for each object, then starts
running through again, seg faulting at some random point on the second
pass.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 03 Oct 2005 17:48:19 GMT
From: Mike <mikee@mikee.ath.cx>
Subject: training?
Message-Id: <D9e0f.97$s93.28@fe07.lga>
Can someone recommend a company to use for training of perl?
The person I've recommended has been a COBOL programmer, but
doesn't really know anything about the flexibility of perl.
TIA
Mike
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8480
***************************************
