Fixed problem using CA.pm from scripts outside of Base.

This commit is contained in:
Andrew Johnson
2008-09-24 15:02:50 +00:00
parent 238ab41ba1
commit 91d9fdbda8

View File

@@ -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;