[Rt-commit] r15022 - rt/3.8/trunk/lib

[ruz at bestpractical.com]

Author: ruz
Date: Mon Aug 11 19:55:41 2008
New Revision: 15022

Modified:
   rt/3.8/trunk/lib/RT.pm.in

Log:
* filter unique dirs instead of allowing to call InitPluginPaths only once

Modified: rt/3.8/trunk/lib/RT.pm.in
==============================================================================
--- rt/3.8/trunk/lib/RT.pm.in	(original)
+++ rt/3.8/trunk/lib/RT.pm.in	Mon Aug 11 19:55:41 2008
@@ -593,13 +593,9 @@
 
 =cut
 
-{
-my $PluginPathsInited = 0;
 sub InitPluginPaths {
     my $self = shift || __PACKAGE__;
 
-    return @INC if $PluginPathsInited;
-
     my @lib_dirs = $self->PluginDirs('lib');
 
     my @tmp_inc;
@@ -610,9 +606,8 @@
             push @tmp_inc, $_;
         }
     }
-    $PluginPathsInited = 1;
-    @INC = @tmp_inc;
-}
+    my %seen;
+    @INC = grep !$seen{$_}++, @tmp_inc;
 }
 
 =head2 InitPlugins