Re: cvs commit: modperl-2.0/ModPerl-Registry/t .cvsignore

[Philippe M. Chiasson]

On Thu, Oct 18, 2001 at 12:35:06PM +0800, Stas Bekman wrote:
 [EMAIL PROTECTED] wrote:
 
  stas01/10/17 21:25:12
  
Modified:ModPerl-Registry/t .cvsignore
Added:   ModPerl-Registry .cvsignore
Log:
- cvsignore files
 
 
 Any idea why I don't get the
 
Submitted by:
 
 and other commit headers while doing cvs commit under this dir?
 
 Philippe has submitted this patch, but I had no place to indicate this. 
 Sorry Philippe

Oh, this is not quite terrible, .cvsignore patch isn't very sexy or important
for posterity !

 
 _
 Stas Bekman JAm_pH  --   Just Another mod_perl Hacker
 http://stason.org/  mod_perl Guide   http://perl.apache.org/guide
 mailto:[EMAIL PROTECTED]  http://ticketmaster.com http://apacheweek.com
 http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
 

-- 
Philippe M. Chiasson  [EMAIL PROTECTED]
  Extropia's Resident System Guru
 http://www.eXtropia.com/

/* Am I fucking pedantic or what? */ 
-- Linux2.2.16
/usr/src/linux/drivers/scsi/qlogicpti.h

perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl 
Hacker!\n$/print||$$++redo}'

 PGP signature

Re: cvs commit: modperl-2.0/xs/APR/Table APR__Table.h

[Philippe M . Chiasson]

Thanks, I'll remember that one... aTHX ;-)

On Sat, Sep 15, 2001 at 06:21:48PM -, [EMAIL PROTECTED] wrote:
 dougm   01/09/15 11:21:48
 
   Modified:xs/APR/Table APR__Table.h
   Log:
   avoid dTHX; in APR::Table-do
   
   Revision  ChangesPath
   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.h2001/09/15 18:17:31 1.1
   +++ APR__Table.h2001/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  [EMAIL PROTECTED]
  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}'

 PGP signature