From fa4ef69deac5cc5a181a3a71a630255a96ef5c03 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 4 Sep 2001 09:54:43 +0000 Subject: [PATCH] hehe, this should help out everybody without DBIx::Profile (i.e. everybody) --- htetc/global.asa | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/htetc/global.asa b/htetc/global.asa index d6e0bbea2..00c6852fb 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -18,7 +18,7 @@ sub Script_OnStart { sub Script_OnFlush { my $ref = $Response->{BinaryRef}; $$ref = $cgi->header( '-expires' => 'now' ) . $$ref; -# if ( dbh->can('sprintProfile') ) { + if ( dbh->can('sprintProfile') ) { $$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i or warn "can't remove"; @@ -28,5 +28,5 @@ sub Script_OnFlush { $$ref .= ''; dbh->{'private_profile'} = {}; -# } + } } -- 2.11.0