On Mon, 14 May 2001, Geoffrey Young wrote:
>
> ah ha - Doug's patch to op.c that was applied Saturday seems to be the
> culprit - if I back it out the call to bootstrap() works again.
>
> BTW, this wasn't just hanging up Dispatch.pm, but anything that was using
> Apache::ExtUtils, like Apache:RefererBlock...
hmm, might just be uncovering a bug in mod_perl. i have not been able to
reproduce yet, but this patch might help. and/or the patch to op.c after
it. once i can reproduce it, i'll figure out whats up.
Index: src/modules/perl/perl_config.c
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/perl_config.c,v
retrieving revision 1.108
diff -u -r1.108 perl_config.c
--- src/modules/perl/perl_config.c 2000/12/30 05:08:59 1.108
+++ src/modules/perl/perl_config.c 2001/05/15 04:35:05
@@ -1697,7 +1697,7 @@
hv_clear(hv);
if((av = GvAV((GV*)val)))
av_clear(av);
- if((cv = GvCV((GV*)val)))
+ if((cv = GvCV((GV*)val)) && (GvSTASH((GV*)val) == GvSTASH(CvGV(cv))))
cv_undef(cv);
}
}
Index: op.c
===================================================================
RCS file: /usr/local/cvs_repository/perl-current-mirror/op.c,v
retrieving revision 1.1.1.29
diff -u -r1.1.1.29 op.c
--- op.c 2001/05/14 19:48:56 1.1.1.29
+++ op.c 2001/05/15 04:35:22
@@ -4220,6 +4220,7 @@
CvXSUB(cv) = 0;
}
CvFLAGS(cv) = 0;
+ PL_sub_generation++;
}
#ifdef DEBUG_CLOSURES
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
