prevent the "prepared statement "dbdpg_pN_N" already exists" errors that result in...

diff --git a/htetc/handler.pl b/htetc/handler.pl
index d7c5657..3c68e83 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -8,10 +8,19 @@ use FS::Mason qw( mason_interps );
 use FS::Trace;
 
 if ( %%%RT_ENABLED%%% ) {
 use FS::Trace;
 
 if ( %%%RT_ENABLED%%% ) {

+

   require RT;
   require RT;

+

   $> = scalar(getpwnam('freeside'));
   $> = scalar(getpwnam('freeside'));

+

   RT::LoadConfig();
   RT::Init();
   RT::LoadConfig();
   RT::Init();

+
+  # disconnect DB before fork:
+  #   (avoid 'prepared statement "dbdpg_p\d+_\d+" already exists' errors?)
+  $RT::Handle->dbh(undef);
+  undef $RT::Handle;
+

   $> = $<;
 }
 
   $> = $<;
 }