[Rt-commit] r7234 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Tue Mar 13 10:54:52 2007
New Revision: 7234

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm

Log:
* flush cache to avoid loading empty record from it
* drop redefine warning

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm	Tue Mar 13 10:54:52 2007
@@ -466,11 +466,17 @@
         print "$msg\n";
         exit(-1);
     }
+    DBIx::SearchBuilder::Record::Cachable->FlushCache;
+    print "done.\n";
 
     print "Creating system user's ACL...";
 
-    my $CurrentUser = new RT::CurrentUser;
+    $CurrentUser = new RT::CurrentUser;
     $CurrentUser->LoadByName('RT_System');
+    unless ( $CurrentUser->id ) {
+        print "Couldn't load system user\n";
+        exit(-1);
+    }
 
     my $superuser_ace = RT::ACE->new( $CurrentUser );
     $superuser_ace->_BootstrapCreate(