From: ivan <ivan>
Date: Fri, 6 Jun 2003 04:42:04 +0000 (+0000)
Subject: database profiling bs
X-Git-Tag: freeside_1_4_1rc4~3^2~42
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=d2a32e633b46e7e248c593c5de6fc598de2b32cb;p=freeside.git

database profiling bs
i should just switch to mason
---

diff --git a/htetc/global.asa b/htetc/global.asa
index 5fd89957f..555364223 100644
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -126,7 +126,9 @@ sub Script_OnFlush {
   }
 }
 
-if ( defined(@DBIx::Profile::ISA) && DBIx::Profile::db->can('sprintProfile') ) {
+#if ( defined(@DBIx::Profile::ISA) && DBIx::Profile::db->can('sprintProfile') ) {
+#if ( defined(@DBIx::Profile::ISA) && UNIVERSAL::can('DBIx::Profile::db', 'sprintProfile') ) {
+if ( defined(@DBIx::Profile::ISA) ) {
 
   #warn "enabling profiling redirects";
   *CGI::redirect = sub {