perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/Leak Leak.xs
Date Wed, 07 Apr 1999 05:03:33 GMT
dougm       99/04/06 22:03:33

  Modified:    .        Changes ToDo
               Leak     Leak.xs
  Log:
  Apache::Leak fixes for win32
  
  Revision  Changes    Path
  1.276     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.275
  retrieving revision 1.276
  diff -u -r1.275 -r1.276
  --- Changes	1999/04/07 03:34:28	1.275
  +++ Changes	1999/04/07 05:03:29	1.276
  @@ -8,6 +8,9 @@
   
   =item 1.18_01-dev
   
  +Apache::Leak fixes for win32 
  +[Matthew Sergeant <Matthew.Sergeant@eml.ericsson.se>]
  +
   Apache::Request upload tests are skipped #ifdef USE_SFIO 
   
   $r->send_fd() will croak() #ifdef USE_SFIO
  
  
  
  1.173     +1 -1      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /home/cvs/modperl/ToDo,v
  retrieving revision 1.172
  retrieving revision 1.173
  diff -u -r1.172 -r1.173
  --- ToDo	1999/04/07 03:34:29	1.172
  +++ ToDo	1999/04/07 05:03:30	1.173
  @@ -3,7 +3,7 @@
                    (well, close to it anyhow)
   ---------------------------------------------------------------------------
   
  -- Leak.xs under win32
  +- Vivek's BSD/OS 4.0.1 compile as DSO notes
   
   - $r->set_handlers(PerlAuthenHandler => undef) stomps other config!?
   
  
  
  
  1.2       +8 -8      modperl/Leak/Leak.xs
  
  Index: Leak.xs
  ===================================================================
  RCS file: /home/cvs/modperl/Leak/Leak.xs,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- Leak.xs	1998/11/06 21:07:53	1.1
  +++ Leak.xs	1999/04/07 05:03:33	1.2
  @@ -63,7 +63,7 @@
   	p = (hash_ptr) malloc(sizeof(struct hash_s));
       p->link  = ht[hash];
       p->sv    = sv;
  -    p->tag   = tag;
  +    p->tag   = (char *)tag;
       ht[hash] = p;
       return NULL;
   }
  @@ -101,11 +101,11 @@
       return n;
   }
   
  -static char old[] = "old";
  -static char new[] = "new";
  +static char * t_old = "old";
  +static char * t_new = "new";
   
   static long note_sv(void *p, SV *sv, long int n) {
  -    lookup(p, sv, old);
  +    lookup((struct hash_s **)p, sv, t_old);
       return n+1;
   }
   
  @@ -119,9 +119,9 @@
   
   static long check_sv(void *p, SV *sv, long hwm)
   {
  -    char *state = lookup(p,sv,new);
  -    if (state != old) {                           
  -	fprintf(stderr, "%s %p : ", state ? state : new, sv);
  +    char *state = lookup((struct hash_s **)p, sv, t_new); 
  +    if (state != t_old) { 
  +	fprintf(stderr, "%s %p : ", state ? state : t_new, sv); 
   	sv_dump(sv);
       }
       return hwm+1;
  @@ -136,7 +136,7 @@
   	while (p) {
   	    hash_ptr t = p;
   	    p = t->link;
  -	    if (t->tag != new) {
  +	    if (t->tag != t_new) {
   		LangDumpVec(t->tag ? t->tag : "NUL", 1, &t->sv);
   	    }
   	    t->link = pile;
  
  
  

Mime
View raw message