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/12/30 20:22:49 UTC
cvs commit: modperl/t/net/perl api.pl
dougm 99/12/30 11:22:49
Modified: . Changes ToDo
src/modules/perl Apache.xs
t/net/perl api.pl
Log:
$r->no_cache(1) will now set the r->headers_out "Pragma" and
"Cache-control" to "no-cache"
Revision Changes Path
1.370 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.369
retrieving revision 1.370
diff -u -r1.369 -r1.370
--- Changes 1999/12/30 19:16:37 1.369
+++ Changes 1999/12/30 19:22:46 1.370
@@ -10,6 +10,9 @@
=item 1.21_01-dev
+$r->no_cache(1) will now set the r->headers_out "Pragma" and
+"Cache-control" to "no-cache"
+
`PerlSetEnv PERL5LIB ...' now works again, thanks to Stas for the spot
Apache::test fix for Apache::Table
1.214 +0 -3 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /home/cvs/modperl/ToDo,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -r1.213 -r1.214
--- ToDo 1999/12/30 01:49:50 1.213
+++ ToDo 1999/12/30 19:22:46 1.214
@@ -3,9 +3,6 @@
(well, close to it anyhow)
---------------------------------------------------------------------------
-- maybe $r->no_cache should also set
- $headers_out->{'Pragma'} = $headers_out->{'Cache-control'} = 'no-cache';
-
- enable PerlRestartHandler w/ EVERYTHING=1
- solaris Perl Configure adds a space before -R in ccdlflags, see
1.84 +4 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- Apache.xs 1999/12/29 20:28:16 1.83
+++ Apache.xs 1999/12/30 19:22:48 1.84
@@ -1725,6 +1725,10 @@
CODE:
get_set_IV(r->no_cache);
+ if (r->no_cache) {
+ ap_table_setn(r->headers_out, "Pragma", "no-cache");
+ ap_table_setn(r->headers_out, "Cache-control", "no-cache");
+ }
OUTPUT:
RETVAL
1.39 +1 -0 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- api.pl 1999/03/08 23:42:55 1.38
+++ api.pl 1999/12/30 19:22:49 1.39
@@ -27,6 +27,7 @@
$r->content_type("text/plain");
$r->content_languages([qw(en)]);
+$r->no_cache(1);
$r->send_http_header;
$r->print("1..$tests\n");