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...@hyperreal.org on 1999/04/07 07:03:33 UTC
cvs commit: modperl/Leak Leak.xs
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 <Ma...@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;