From 91d9fdbda8e03dc87a03753b68a49e60c96d7d29 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Wed, 24 Sep 2008 15:02:50 +0000
Subject: [PATCH] Fixed problem using CA.pm from scripts outside of Base.

---
 src/cap5/CA.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/cap5/CA.pm b/src/cap5/CA.pm
index 15e5b5f9f..993af54fe 100644
--- a/src/cap5/CA.pm
+++ b/src/cap5/CA.pm
@@ -28,9 +28,10 @@ our @ISA = qw(DynaLoader);
 
 require DynaLoader;
 
-# Add our lib/<arch> directory to the library search path
-use FindBin qw($Bin);
-push @DynaLoader::dl_library_path, "$Bin/../../lib/$ENV{EPICS_HOST_ARCH}";
+# Add our lib/<arch> directory to the shared library search path
+use File::Basename;
+my $Lib = dirname(__FILE__);
+push @DynaLoader::dl_library_path, "$Lib/../$ENV{EPICS_HOST_ARCH}";
 
 bootstrap Cap5 $VERSION;