[Rt-commit] [svn] r1800 - in rt/branches/3.3-TESTING: . bin lib

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Wed Nov 10 08:50:55 2004
New Revision: 1800

Modified:
   rt/branches/3.3-TESTING/   (props changed)
   rt/branches/3.3-TESTING/bin/standalone_httpd.in
   rt/branches/3.3-TESTING/bin/webmux.pl.in
   rt/branches/3.3-TESTING/lib/RT.pm.in
Log:
 r3590 at not:  autrijus | 2004-11-10T13:52:05.548584Z
 * Flush cache at end of each request.
 * Defeat perlbug that mangles (caller(0))[1] wheneter $^P is set by Module::Refresh.
 


Modified: rt/branches/3.3-TESTING/bin/standalone_httpd.in
==============================================================================
--- rt/branches/3.3-TESTING/bin/standalone_httpd.in	(original)
+++ rt/branches/3.3-TESTING/bin/standalone_httpd.in	Wed Nov 10 08:50:55 2004
@@ -154,6 +154,10 @@
                 $RT::Handle->ForceRollback;
                 $RT::Logger->crit( "Transaction not committed. Usually indicates a software fault. Data loss may have occurred");
             }
+
+            DBIx::SearchBuilder::Record::Cachable->FlushCache if UNIVERSAL::can(
+                'DBIx::SearchBuilder::Record::Cachable' => 'FlushCache'
+            );
         }
 
     }

Modified: rt/branches/3.3-TESTING/bin/webmux.pl.in
==============================================================================
--- rt/branches/3.3-TESTING/bin/webmux.pl.in	(original)
+++ rt/branches/3.3-TESTING/bin/webmux.pl.in	Wed Nov 10 08:50:55 2004
@@ -133,6 +133,11 @@
 "Transaction not committed. Usually indicates a software fault. Data loss may have occurred"
         );
     }
+
+    DBIx::SearchBuilder::Record::Cachable->FlushCache if UNIVERSAL::can(
+        'DBIx::SearchBuilder::Record::Cachable' => 'FlushCache'
+    );
+
     return $status;
 }
 

Modified: rt/branches/3.3-TESTING/lib/RT.pm.in
==============================================================================
--- rt/branches/3.3-TESTING/lib/RT.pm.in	(original)
+++ rt/branches/3.3-TESTING/lib/RT.pm.in	Wed Nov 10 08:50:55 2004
@@ -203,6 +203,7 @@
         die ("Log file $filename couldn't be written or created.\n RT can't run.");
     }
 
+    package Log::Dispatch::File;
     require Log::Dispatch::File;
 
 
@@ -220,6 +221,7 @@
 		       ));
     }
     if ($RT::LogToScreen) {
+	package Log::Dispatch::Screen;
 	require Log::Dispatch::Screen;
 	$RT::Logger->add(Log::Dispatch::Screen->new
 		     ( name => 'screen',
@@ -233,6 +235,7 @@
 		     ));
     }
     if ($RT::LogToSyslog) {
+	package Log::Dispatch::Syslog;
 	require Log::Dispatch::Syslog;
 	$RT::Logger->add(Log::Dispatch::Syslog->new
 		     ( name => 'syslog',