perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philippe M . Chiasson" <go...@cpan.org>
Subject Re: cvs commit: modperl-2.0/xs/APR/Table APR__Table.h
Date Mon, 17 Sep 2001 01:48:40 GMT
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  <gozer@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}'

Mime
View raw message