From af48ed31c3af184fcf30027292d0da0b8dc0f89f Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Tue, 26 Oct 2010 09:27:47 -0500
Subject: [PATCH] tools: Need search path for uninstalled modules too.

This fixes the perl compilation failures of fullPathName.pl
that occur before the src/tools directory has been built, and
ensures that the other tools that use EPICS modules also work.
---
 src/tools/convertRelease.pl | 2 +-
 src/tools/expandVars.pl     | 2 +-
 src/tools/fullPathName.pl   | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/tools/convertRelease.pl b/src/tools/convertRelease.pl
index db50e57bb..ac02802bd 100644
--- a/src/tools/convertRelease.pl
+++ b/src/tools/convertRelease.pl
@@ -17,7 +17,7 @@ eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
 use strict;
 
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ("$Bin/../../lib/perl", $Bin);
 
 use Cwd qw(cwd abs_path);
 use Getopt::Std;
diff --git a/src/tools/expandVars.pl b/src/tools/expandVars.pl
index 79dfbfef0..2100315da 100644
--- a/src/tools/expandVars.pl
+++ b/src/tools/expandVars.pl
@@ -12,7 +12,7 @@
 use strict;
 
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ("$Bin/../../lib/perl", $Bin);
 
 use EPICS::Getopts;
 use EPICS::Path;
diff --git a/src/tools/fullPathName.pl b/src/tools/fullPathName.pl
index 99e22838b..15a614885 100644
--- a/src/tools/fullPathName.pl
+++ b/src/tools/fullPathName.pl
@@ -16,7 +16,7 @@ eval 'exec perl -S -w  $0 ${1+"$@"}'  # -*- Mode: perl -*-
 use strict;
 
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ("$Bin/../../lib/perl", $Bin);
 
 use Getopt::Std;
 use EPICS::Path;