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 st...@apache.org on 2004/11/29 16:14:28 UTC
svn commit: r106912 - /perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm
Author: stas
Date: Mon Nov 29 07:14:25 2004
New Revision: 106912
URL: http://svn.apache.org/viewcvs?view=rev&rev=106912
Log:
embed debugging
Modified:
perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm
Modified: perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm
Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm?view=diff&rev=106912&p1=perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm&r1=106911&p2=perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm&r2=106912
==============================================================================
--- perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm (original)
+++ perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm Mon Nov 29 07:14:25 2004
@@ -7,6 +7,8 @@
use Apache::RequestIO ();
use Apache::SubRequest ();
+use Apache::TestTrace;
+
use Apache::Const -compile => 'OK';
sub modperl {
@@ -16,11 +18,13 @@
if ($args{main}) {
# sub-req
$r->content_type('text/plain');
+ debug "modperl: sub-req: response";
$r->print("internal redirect: $args{main} => modperl");
}
else {
# main-req
my $redirect_uri = $args{uri};
+ debug "modperl: main-req => $redirect_uri?main=modperl";
$r->internal_redirect("$redirect_uri?main=modperl");
}
@@ -34,11 +38,13 @@
if ($args{main}) {
# sub-req
$r->content_type('text/plain');
+ debug "perl-script: sub-req: response";
print "internal redirect: $args{main} => perl-script";
}
else {
# main-req
my $redirect_uri = $args{uri};
+ debug "perl-script: main-req => $redirect_uri?main=perl-script";
$r->internal_redirect("$redirect_uri?main=perl-script");
}