You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/09/15 20:21:48 UTC
cvs commit: modperl-2.0/xs/APR/Table APR__Table.h
dougm 01/09/15 11:21:48
Modified: xs/APR/Table APR__Table.h
Log:
avoid dTHX; in APR::Table->do
Revision Changes Path
1.2 +7 -3 modperl-2.0/xs/APR/Table/APR__Table.h
Index: APR__Table.h
===================================================================
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;
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 = (mpxs_table_do_cb_data_t *)data;
+ dTHXa(tdata->perl);
dSP;
int rv = 0;
- mpxs_table_do_cb_data_t *tdata = (mpxs_table_do_cb_data_t *)data;
/* Skip completely if something is wrong */
if (!(tdata && tdata->cv && key && val)) {
@@ -56,7 +57,10 @@
tdata.cv = sub;
tdata.filter = NULL;
-
+#ifdef USE_ITHREADS
+ tdata.perl = aTHX;
+#endif
+
if (items > 2) {
STRLEN len;
tdata.filter = apr_table_make(table->a.pool, items-2);
Re: cvs commit: modperl-2.0/xs/APR/Table APR__Table.h
Posted by "Philippe M . Chiasson" <go...@cpan.org>.
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
>
> Modified: xs/APR/Table APR__Table.h
> Log:
> avoid dTHX; in APR::Table->do
>
> Revision Changes Path
> 1.2 +7 -3 modperl-2.0/xs/APR/Table/APR__Table.h
>
> Index: APR__Table.h
> ===================================================================
> 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;
>
> 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 = (mpxs_table_do_cb_data_t *)data;
> + dTHXa(tdata->perl);
> dSP;
> int rv = 0;
> - mpxs_table_do_cb_data_t *tdata = (mpxs_table_do_cb_data_t *)data;
>
> /* Skip completely if something is wrong */
> if (!(tdata && tdata->cv && key && val)) {
> @@ -56,7 +57,10 @@
>
> tdata.cv = sub;
> tdata.filter = NULL;
> -
> +#ifdef USE_ITHREADS
> + tdata.perl = aTHX;
> +#endif
> +
> if (items > 2) {
> STRLEN len;
> tdata.filter = apr_table_make(table->a.pool, items-2);
>
>
>
>
--
Philippe M. Chiasson <go...@cpan.org>
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.
-- Larry Wall
perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl Hacker!\n$/&&print||$$++&&redo}'
Re: cvs commit: modperl-2.0/xs/APR/Table APR__Table.h
Posted by "Philippe M . Chiasson" <go...@cpan.org>.
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
>
> Modified: xs/APR/Table APR__Table.h
> Log:
> avoid dTHX; in APR::Table->do
>
> Revision Changes Path
> 1.2 +7 -3 modperl-2.0/xs/APR/Table/APR__Table.h
>
> Index: APR__Table.h
> ===================================================================
> 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;
>
> 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 = (mpxs_table_do_cb_data_t *)data;
> + dTHXa(tdata->perl);
> dSP;
> int rv = 0;
> - mpxs_table_do_cb_data_t *tdata = (mpxs_table_do_cb_data_t *)data;
>
> /* Skip completely if something is wrong */
> if (!(tdata && tdata->cv && key && val)) {
> @@ -56,7 +57,10 @@
>
> tdata.cv = sub;
> tdata.filter = NULL;
> -
> +#ifdef USE_ITHREADS
> + tdata.perl = aTHX;
> +#endif
> +
> if (items > 2) {
> STRLEN len;
> tdata.filter = apr_table_make(table->a.pool, items-2);
>
>
>
>
--
Philippe M. Chiasson <go...@cpan.org>
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.
-- Larry Wall
perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl Hacker!\n$/&&print||$$++&&redo}'