[959] in BarnOwl Developers
[D-O-H] r947 - trunk/owl/perl/lib/BarnOwl
daemon@ATHENA.MIT.EDU (nelhage@MIT.EDU)
Thu Oct 29 18:11:34 2009
Resent-From: nelhage@mit.edu
Resent-To: barnowl-dev-mtg@charon.mit.edu
X-Original-To: nelhage@nelhage.com
To: dirty-owl-hackers@mit.edu
From: nelhage@MIT.EDU
Reply-to: dirty-owl-hackers@MIT.EDU
Date: Mon, 18 Feb 2008 16:45:22 -0500 (EST)
Author: nelhage
Date: 2008-02-18 16:45:22 -0500 (Mon, 18 Feb 2008)
New Revision: 947
Modified:
trunk/owl/perl/lib/BarnOwl/ModuleLoader.pm
Log:
We need to stick modules on the beginning of @INC, not the end
Modified: trunk/owl/perl/lib/BarnOwl/ModuleLoader.pm
===================================================================
--- trunk/owl/perl/lib/BarnOwl/ModuleLoader.pm 2008-02-18 21:26:53 UTC (rev 946)
+++ trunk/owl/perl/lib/BarnOwl/ModuleLoader.pm 2008-02-18 21:45:22 UTC (rev 947)
@@ -23,7 +23,7 @@
if(-f "$dir/$f" && $f =~ /^(.+)\.par$/) {
$modules{$1} = 1;
} elsif(-d "$dir/$f" && -d "$dir/$f/lib") {
- push @INC, "$dir/$f/lib" unless grep m{^$dir/$f/lib$}, @INC;
+ unshift @INC, "$dir/$f/lib" unless grep m{^$dir/$f/lib$}, @INC;
$modules{$f} = 1;
}
}
