Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (athena.apache.org: domain of peng.kyo@gmail.com designates
 209.85.142.188 as permitted sender)
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=beta;
        h=message-id:date:from:sender:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references:x-google-sender-auth;
        b=oxzhgy4Acf6+cRjqbN3vtj5Vi9ogQCOcj9WaJF1VmhknacZA/vm3lgDvo8WBE9lfNvgNRPBqQ5u/aLN5b3C7WLUfc690HI3cDlC7IeuJY/Hvt69rsBFPAk1ccEPL1pghrXJXwFSXhmOoJkRI72f8o12Vr8xKhijOPfNVFGNbOd0=
Message-ID: <18c1e5f20804030848r77bb9b00r5d2ffc50ae75aec6@mail.gmail.com>
Date: Thu, 3 Apr 2008 23:48:15 +0800
From: "Jeff Pang" <pangj@earthlink.net>
Sender: peng.kyo@gmail.com
To: modperl@perl.apache.org
Subject: Re: share objects
In-Reply-To: <c31298e50804030832q508d040aka04f4648d7c8807@mail.gmail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
References: <c31298e50804030832q508d040aka04f4648d7c8807@mail.gmail.com>

On Thu, Apr 3, 2008 at 11:32 PM, Felipe de Jes=FAs Molina Bravo
<fjmolinabravo@gmail.com> wrote:
> hi
>
> I have  installed static mp2 with apache 2.0.63 (forker).  I am using per=
l
> bind (Sleepycat::DBXML) from dbxml; then I create an object (reference to
> Sleepycat::DBXML) in startup.pl because i want to share it. After some te=
st
> (stress it) for my application I saw some error in error.log; the problem=
 is
> that reference to object created in startup.pl was lost
>
> then the question is ... is possible to share objects?
>

If your object has its own package name space, you can share it
between multi-processes.
But if you state this in startup.pl,

my $obj =3D Sleepycat::DBXML->new();

this $obj can't be shared among multi-processes. Because it doesn't
have its package name space.

So,you'd better write a package to encap that object, like:

package MyPKG;
use strict;
use Sleepycat::DBXML;

our $obj =3D  Sleepycat::DBXML->new;
sub initobj { $obj }

1;

And put 'use MyPKG' in the startup.pl.
then in your scripts you can access this object by saying 'our $obj'
or via the method of 'my $obj =3D MyPKG->initobj'.

Good luck.