stas 2003/03/08 00:56:19
Modified: t/response/TestModperl current_callback.pm Log: comment out debug prints Revision Changes Path 1.2 +2 -7 modperl-2.0/t/response/TestModperl/current_callback.pm Index: current_callback.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/current_callback.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- current_callback.pm 17 Feb 2003 09:03:17 -0000 1.1 +++ current_callback.pm 8 Mar 2003 08:56:19 -0000 1.2 @@ -21,12 +21,7 @@ $callback, 'inside PerlResponseHandler'); - warn "in callback: $callback\n"; - -# my $callback = Apache::current_callback(); -# my $expected = 'PerlFixupHandler'; -# die "expecting $expected callback, instead got $callback" -# unless $callback eq $expected; + #warn "in callback: $callback\n"; Apache::OK; } @@ -40,7 +35,7 @@ my $callback = Apache::current_callback(); die "expecting $expected callback, instead got $callback" unless $callback eq $expected; - warn "in callback: $callback\n"; + #warn "in callback: $callback\n"; } 1;