From 9187b6b7b7b923ebb82e2a6e45cfdada7a49372d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 18 Nov 2009 18:00:18 -0800
Subject: [PATCH] Fix problem with @INC in preload.perl.

---
 sbin/preload.perl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sbin/preload.perl b/sbin/preload.perl
index 1d2cf228b..4e54f6820 100644
--- a/sbin/preload.perl
+++ b/sbin/preload.perl
@@ -2,7 +2,9 @@ use strict;
 
 my $webguiRoot = '/data/WebGUI';
 
-@INC = "$webguiRoot/lib", grep { $_ ne q{.} } @INC;
+@INC = grep { $_ ne q{.} } @INC;
+
+unshift @INC, "$webguiRoot/lib";
 
 # add custom lib directories to library search path
 unshift @INC, grep {