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 ra...@apache.org on 2003/04/27 06:19:19 UTC
cvs commit: modperl-2.0/t/response/TestAPI lookup_uri2.pm
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>