dougm 00/03/30 11:41:25
Modified: . Changes
src/modules/perl mod_perl.c
Log:
reset the stack pointer after calling perl_require_module() in
perl_call_handler()
Revision Changes Path
1.446 +5 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.445
retrieving revision 1.446
diff -u -r1.445 -r1.446
--- Changes 2000/03/30 00:44:39 1.445
+++ Changes 2000/03/30 19:41:24 1.446
@@ -10,6 +10,11 @@
=item 1.22_01-dev
+reset the stack pointer after calling perl_require_module() in
+perl_call_handler(). this fix will most likely cure the reports of
+"Can't upgrade that kind of scalar at ..."
+[Ben Cottrell <[EMAIL PROTECTED]>]
+
workaround use of Perl api functions that are no longer public with
Perl 5.6.0 + win32, thanks to Randy Kobes for spotting
1.111 +1 -0 modperl/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
retrieving revision 1.110
retrieving revision 1.111
diff -u -r1.110 -r1.111
--- mod_perl.c 2000/03/30 19:34:13 1.110
+++ mod_perl.c 2000/03/30 19:41:25 1.111
@@ -1557,6 +1557,7 @@
if(stash) /* check again */
is_method = perl_handler_ismethod(stash, method);
#endif
+ SPAGAIN; /* reset stack pointer after require() */
}
if(!is_method && !defined_sub) {
