Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 54780 invoked by uid 500); 17 Sep 2001 12:38:22 -0000 Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Delivered-To: moderator for modperl-cvs@apache.org Received: (qmail 50803 invoked by uid 500); 17 Sep 2001 01:48:37 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: Mon, 17 Sep 2001 09:48:40 +0800 From: "Philippe M . Chiasson" To: dev@perl.apache.org Cc: modperl-2.0-cvs@apache.org Subject: Re: cvs commit: modperl-2.0/xs/APR/Table APR__Table.h Message-ID: <20010917094839.A11559@eXtropia.com> Mail-Followup-To: dev@perl.apache.org, modperl-2.0-cvs@apache.org References: <20010915182148.94740.qmail@icarus.apache.org> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-md5; protocol="application/pgp-signature"; boundary="ZPt4rx8FFjLCG7dd" Content-Disposition: inline User-Agent: Mutt/1.2.5i In-Reply-To: <20010915182148.94740.qmail@icarus.apache.org>; from dougm@apache.org on Sat, Sep 15, 2001 at 06:21:48PM -0000 Organization: SmartWorker Project (http://www.smartworker.org/) X-PGP-Keys: Available at http://people.eXtropia.com/~gozer/privacy/ X-Virus-Scanned: AMaViS X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N --ZPt4rx8FFjLCG7dd Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Thanks, I'll remember that one... aTHX ;-) On Sat, Sep 15, 2001 at 06:21:48PM -0000, dougm@apache.org wrote: > dougm 01/09/15 11:21:48 >=20 > Modified: xs/APR/Table APR__Table.h > Log: > avoid dTHX; in APR::Table->do > =20 > Revision Changes Path > 1.2 +7 -3 modperl-2.0/xs/APR/Table/APR__Table.h > =20 > Index: APR__Table.h > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > RCS file: /home/cvs/modperl-2.0/xs/APR/Table/APR__Table.h,v > retrieving revision 1.1 > retrieving revision 1.2 > diff -u -r1.1 -r1.2 > --- APR__Table.h 2001/09/15 18:17:31 1.1 > +++ APR__Table.h 2001/09/15 18:21:48 1.2 > @@ -1,6 +1,7 @@ > typedef struct { > SV *cv; > apr_table_t *filter; /*XXX: or maybe a mgv ? */ > + PerlInterpreter *perl; > } mpxs_table_do_cb_data_t; > =20 > typedef int (*mpxs_apr_table_do_cb_t)(void *, const char *, const char= *); > @@ -8,10 +9,10 @@ > static int mpxs_apr_table_do_cb(void *data, > const char *key, const char *val) > { > - dTHX; /*XXX*/ > + mpxs_table_do_cb_data_t *tdata =3D (mpxs_table_do_cb_data_t *)data; > + dTHXa(tdata->perl); > dSP; > int rv =3D 0; > - mpxs_table_do_cb_data_t *tdata =3D (mpxs_table_do_cb_data_t *)data; > =20 > /* Skip completely if something is wrong */ > if (!(tdata && tdata->cv && key && val)) { > @@ -56,7 +57,10 @@ > =20 > tdata.cv =3D sub; > tdata.filter =3D NULL; > - =20 > +#ifdef USE_ITHREADS > + tdata.perl =3D aTHX; > +#endif > + > if (items > 2) { > STRLEN len; > tdata.filter =3D apr_table_make(table->a.pool, items-2); > =20 > =20 > =20 >=20 --=20 Philippe M. Chiasson Extropia's Resident System Guru http://www.eXtropia.com/ Perl is such a great deal because a lot of people have worked a great deal on it.=20 -- Larry Wall perl -e '$$=3D\${gozer};{$_=3Dunpack(P26,pack(L,$$));/^Just Another Perl Ha= cker!\n$/&&print||$$++&&redo}' --ZPt4rx8FFjLCG7dd Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.0.6 (GNU/Linux) Comment: For info see http://www.gnupg.org iD8DBQE7pVZ3yzKhB4jDpaURAllzAJ4lsv/wKm+FPxLE5OIea2vu/YQUYQCgieLY +hIoyuAM9ie3QucIqMG+UUU= =9cXr -----END PGP SIGNATURE----- --ZPt4rx8FFjLCG7dd--