Re: [Dbdpg-general] Fwd: [sf-perl] Perl module"s END block clobbered (and stuff)

Re: [Dbdpg-general] Fwd: [sf-perl] Perl module"s END block clobbered (and stuff)

am 06.08.2003 21:06:22 von Paul Makepeace

On Mon, Aug 04, 2003 at 01:30:46PM -0400, Rudy Lippan wrote:
> On Mon, 4 Aug 2003, David Wheeler wrote:
>
> > Begin forwarded message:
> >
> > > From: Paul Makepeace
> > >
> > > I'm getting this error in Apache's main error logs. I have seen no
> > > other reference to it on Google.
> > >
> > > [warning] Perl module's END block clobbered perl_destruct_level
> > > (buggy DBD::Pg?)
> > >
>
> I just tried grepping the perl, mod_perl & apache sources, & I don't
> see "clobbered" comming form any of them. Do you know where the
> message might be comming from?

[xposting to MySQL folks since this affects DBD::mysql too]

Further to this and my last message at
http://gborg.postgresql.org/pipermail/dbdpg-general/2003-Aug ust/000286.html

...it turns out this originates in both DBD::Pg and DBD::mysql's
dbd_discon_all() where perl_destruct_level is reset. In Debian's
DBD::Pg's libdbd-pg-perl this has been patched (removed):
http://bugs.debian.org/cgi-bin/bugreport.cgi?archive=no&bug= 167148

Severity: important

In dbdimp.c:dbd_discon_all is this code:

if (perl_destruct_level) {
perl_destruct_level =3D 0;
}

It looks like this is because it doesn't support being told to clean up.

Resetting perl_destruct_level is absolutely wrong; this is the cause of
the 3MB or more memory leaked every time you SIGHUP a mod_perl server
using DBD::Pg. Removing this code fixes the problem but I don't know
what affect it'll have on DBD::Pg; I didn't see any adverse effects but
I didn't test it very well.

Does anyone know why this reset is there? Can it be removed from the sources?
It's not in DBD::Oracle certainly since 1.06 dated 2000/07.

Paul

--
Paul Makepeace ....................................... http://paulm.com/

"What is the greatest city in Europe? A cheetah, roaming the savannah."
-- http://paulm.com/toys/surrealism/

--
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe: http://lists.mysql.com/perl?unsub=gcdmp-msql-mysql-modules@m .gmane.org