[26299] in Perl-Users-Digest
Perl-Users Digest, Issue: 8478 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 3 00:05:33 2005
Date: Sun, 2 Oct 2005 21:05:04 -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 Sun, 2 Oct 2005 Volume: 10 Number: 8478
Today's topics:
Re: IO::All Socket <joe@rockhead.spamfree.freespam.com>
Net::SMTP - sending email header ? <uctraing@ultranet.com>
Re: Net::SMTP - sending email header ? <uctraing@ultranet.com>
Re: threads, XSUB allocated memory, destructors, destru <please@no.mail.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 02 Oct 2005 17:44:41 -0400
From: joe rockhead <joe@rockhead.spamfree.freespam.com>
Subject: Re: IO::All Socket
Message-Id: <vqCdna4fat9Qyd3eRVn-pg@speakeasy.net>
hey, man, that's better than mine.
at least the remote user gets back his prompt.
I wish I could find more info. google keeps returning copies of cpan's examples on other people's websites.
------------------------------
Date: Mon, 03 Oct 2005 01:51:43 GMT
From: Bob <uctraing@ultranet.com>
Subject: Net::SMTP - sending email header ?
Message-Id: <1d31k1lq0iddu7nov6ga0so8j4nmai8dcs@4ax.com>
I need a pointer... I am using Net::SMTP to send an email message but
I need to generate the MIME headers. I checked the NET::SMTP docs but
they don't have what I need. help?
Thanks,
------------------------------
Date: Mon, 03 Oct 2005 02:04:30 GMT
From: Bob <uctraing@ultranet.com>
Subject: Re: Net::SMTP - sending email header ?
Message-Id: <jg41k1lnqcp39ij0v4f5f1tlpkk315q0vm@4ax.com>
On Mon, 03 Oct 2005 01:51:43 GMT, Bob <uctraing@ultranet.com> wrote:
>I need a pointer... I am using Net::SMTP to send an email message but
>I need to generate the MIME headers. I checked the NET::SMTP docs but
>they don't have what I need. help?
>
>Thanks,
I should have noted: I'm not looking to do an attachment, I just want
to spec the Content-type header for the main message body to force
text/plain.
------------------------------
Date: 02 Oct 2005 21:54:49 +0200
From: Andrew Torda <please@no.mail.org>
Subject: Re: threads, XSUB allocated memory, destructors, destruction
Message-Id: <ly7jcv4rue.fsf@bern.zbh.uni-hamburg.de>
"Sisyphus" <sisyphus1@nomail.afraid.org> writes:
> "Andrew Torda" <please_no_mail@zbh.uni-hamburg.de> wrote in message
[.... original code deleted ...]
> > Unfortunately, at the join() stage, each thread decides to
> > cleanup, and call the destructors for my @array_to_read_from.
> > Obviously free() gets called multiple times, terrible things
> > happen to the heap and everything dies.
> >
>
> Can't quite reproduce the exact problem. I gather that '@array_to_read_from'
But your example does reproduce the problem. The exact point of
cleanup is not specified (different under windows and linux).
> is an array of these "pointer" objects. Below my sig is an Inline::C script
> that (I think) does pretty much as described (and not much else). It doesn't
> use a typemap, but I don't think there's any relevance in that.
In order to see the problem with threads cleaning up malloc'd
memory, I think you should take your nice example, and put a loop
like
for (my $i = 0; $i < 10; $i++) {
around your code below. Under linux, at least, I think you will
find you will not reach the second iteration of the loop.
> $thread1 = threads->new("start_thread", @array_to_read_from_1);
> $thread2 = threads->new("start_thread", @array_to_read_from_2);
> $thread3 = threads->new("start_thread", @array_to_read_from_3);
>
> $s1 = $thread1->join;
> $s2 = $thread2->join;
> $s3 = $thread3->join;
>
> print "$s1 $s2 $s3\n";
> print "All joined\n";
Thanks for the example.
------------------------------
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 8478
***************************************
