perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPI lookup_uri2.pm
Date Sun, 27 Apr 2003 04:19:19 GMT
randyk      2003/04/26 21:19:18

  Modified:    t/response/TestAPI lookup_uri2.pm
  Log:
  s/::/__/g for <Location> directives for consistency with earlier changes.
  
  Revision  Changes    Path
  1.3       +4 -3      modperl-2.0/t/response/TestAPI/lookup_uri2.pm
  
  Index: lookup_uri2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/lookup_uri2.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- lookup_uri2.pm	11 Apr 2002 11:08:43 -0000	1.2
  +++ lookup_uri2.pm	27 Apr 2003 04:19:18 -0000	1.3
  @@ -26,7 +26,8 @@
   
   sub subrequest {
       my($r, $sub) = @_;
  -    $r->lookup_uri(join '::', __PACKAGE__, $sub)->run;
  +    (my $uri = join '::', __PACKAGE__, $sub) =~ s!::!__!g;
  +    $r->lookup_uri($uri)->run;
   }
   
   sub handler {
  @@ -43,12 +44,12 @@
   
   1;
   __DATA__
  -<Location /TestAPI::lookup_uri2::myplan>
  +<Location /TestAPI__lookup_uri2__myplan>
       SetHandler modperl
       PerlResponseHandler TestAPI::lookup_uri2::myplan
   </Location>
   
  -<Location /TestAPI::lookup_uri2::ok3>
  +<Location /TestAPI__lookup_uri2__ok3>
       SetHandler modperl
       PerlResponseHandler TestAPI::lookup_uri2::ok3
   </Location>
  
  
  

Mime
View raw message