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 1998/08/07 02:48:36 UTC
cvs commit: modperl/src/modules/perl Apache.xs
dougm 98/08/06 17:48:36
Modified: . ToDo
src/modules/perl Apache.xs
Log:
some ToDo stuff
Revision Changes Path
1.60 +4 -2 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /export/home/cvs/modperl/ToDo,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- ToDo 1998/08/06 16:52:40 1.59
+++ ToDo 1998/08/07 00:48:35 1.60
@@ -16,13 +16,15 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
+- ap_log_error -> ap_log_rerror
+
From: andreas.koenig@kulturbox.de (Andreas J. Koenig)
Subject: Bug in <Perl> sections
- make 'make test_report' more useful
-- ap_scan_script_header_err_string? and/or update cgi_header_out to
- take action on Last-Modified header
+- change cgi_header_out and send_cgi_header to use new
+ ap_scan_script_header_err_core function
- Apache::exit broken under Apache::PerlRun (not seen w/ package declaration)
1.47 +32 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -r1.46 -r1.47
--- Apache.xs 1998/07/30 19:09:16 1.46
+++ Apache.xs 1998/08/07 00:48:35 1.47
@@ -312,6 +312,38 @@
return NULL;
}
+#if MODULE_MAGIC_NUMBER >= 19980806
+/*
+ * ap_scan_script_header_err_core(r, buffer, getsfunc_SV, sv)
+ */
+static int getsfunc_SV(char *buf, int bufsiz, void *param)
+{
+ SV *sv = (SV*)param;
+ STRLEN len;
+ char *tmp = SvPV(sv,len);
+ int i;
+
+ if(!SvTRUE(sv))
+ return 0;
+
+ for(i=0; i<=len; i++) {
+ if(tmp[i] == LF) break;
+ }
+
+ Move(tmp, buf, i, char);
+ buf[i] = '\0';
+
+ if(len < i) {
+ sv_setpv(sv, "");
+ }
+ else {
+ tmp += i+1;
+ sv_setpv(sv, tmp);
+ }
+ return 1;
+}
+#endif /*MODULE_MAGIC_NUMBER*/
+
MODULE = Apache PACKAGE = Apache PREFIX = mod_perl_
PROTOTYPES: DISABLE