svn commit: r106912 - /perl/modperl/trunk/t/response/TestAPI/internal_redirect.pm

[stas]

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");
     }