dougm 00/04/02 21:38:07
Modified: . Changes
src/modules/perl Apache.xs
t/net/perl api.pl
Log:
$r->the_request can now be modified
Revision Changes Path
1.456 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.455
retrieving revision 1.456
diff -u -r1.455 -r1.456
--- Changes 2000/04/03 04:05:54 1.455
+++ Changes 2000/04/03 04:38:06 1.456
@@ -10,6 +10,8 @@
=item 1.22_01-dev
+$r->the_request can now be modified
+
modules/request test fix
[Rick Myers <[EMAIL PROTECTED]>]
1.91 +2 -2 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -r1.90 -r1.91
--- Apache.xs 2000/04/03 03:11:14 1.90
+++ Apache.xs 2000/04/03 04:38:07 1.91
@@ -1303,11 +1303,11 @@
RETVAL
char *
-the_request(r)
+the_request(r, ...)
Apache r
CODE:
- RETVAL = r->the_request;
+ get_set_PVp(r->the_request,r->pool);
OUTPUT:
RETVAL
1.40 +6 -1 modperl/t/net/perl/api.pl
Index: api.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/api.pl,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- api.pl 1999/12/30 19:22:49 1.39
+++ api.pl 2000/04/03 04:38:07 1.40
@@ -16,7 +16,7 @@
my $is_xs = ($r->uri =~ /_xs/);
-my $tests = 65;
+my $tests = 66;
my $is_win32 = WIN32;
$tests += 2 unless $is_win32;
my $test_get_set = Apache->can('set_handlers') && ($tests += 4);
@@ -69,6 +69,11 @@
test ++$i, $ft_s != $ft_def;
test ++$i, (-s $r->finfo) == $ft_def;
}
+
+my $the_request = $r->the_request;
+$r->the_request(join ' ', map { $r->$_ } qw(method uri protocol));
+test ++$i, $the_request eq $r->the_request;
+printf "old=$the_request, new=%s\n", $r->the_request;
my $loc = $r->location;
print "<Location $loc>\n";
