summaryrefslogtreecommitdiff
path: root/htetc
diff options
context:
space:
mode:
authorivan <ivan>2006-03-09 13:42:40 +0000
committerivan <ivan>2006-03-09 13:42:40 +0000
commit9f69daa6b11920b84840c17bf95955dee959367e (patch)
tree4f317a54c4b4b6da6391d7d4cad9cdccef82050e /htetc
parentb3d608b436cdf673a5552acf9e4b4601f4f79b9d (diff)
fix that blank-page-instead-of-profiling-redirect-when-called-from-an-include bug triggered by mason 1.32 :)
Diffstat (limited to 'htetc')
-rw-r--r--htetc/handler.pl11
1 files changed, 4 insertions, 7 deletions
diff --git a/htetc/handler.pl b/htetc/handler.pl
index 15f9203f8..9b808e68c 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -247,10 +247,8 @@ sub handler
sub redirect {
my( $location ) = @_;
- warn 'redir1 $m='.$m;
use vars qw($m);
$m->clear_buffer;
- warn 'redir3-prof';
#false laziness w/above
if ( defined(@DBIx::Profile::ISA) ) { #profiling redirect
@@ -267,14 +265,13 @@ sub handler
);
dbh->{'private_profile'} = {};
- warn 'redir9-prof';
- my $rv = $m->abort(200);
- warn "redir10-prof: $rv";
- $rv;
+ #whew. removing this is all that's needed to fix the annoying
+ #blank-page-instead-of-profiling-redirect-when-called-from-an-include
+ #bug triggered by mason 1.32
+ #my $rv = $m->abort(200);
} else { #normal redirect
- warn 'redir9-redirect';
$m->redirect($location);
}