perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/t/net/perl api.pl
Date Mon, 03 Apr 2000 04:38:07 GMT
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 <rik@sumthin.nu>]
   
  
  
  
  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";
  
  
  

Mime
View raw message