Use $FindBin::Bin instead of expanding @TOP@.

This commit is contained in:
Andrew Johnson
2008-09-23 22:15:10 +00:00
parent 516a2cbf41
commit 238ab41ba1
6 changed files with 18 additions and 7 deletions

View File

@@ -29,7 +29,8 @@ our @ISA = qw(DynaLoader);
require DynaLoader;
# Add our lib/<arch> directory to the library search path
push @DynaLoader::dl_library_path, '@TOP@/lib/'.$ENV{EPICS_HOST_ARCH};
use FindBin qw($Bin);
push @DynaLoader::dl_library_path, "$Bin/../../lib/$ENV{EPICS_HOST_ARCH}";
bootstrap Cap5 $VERSION;

View File

@@ -21,8 +21,6 @@ ifeq ($(findstring $(OS_CLASS),WIN32 cygwin32),)
# Doesn't build on WIN32
LOADABLE_LIBRARY_HOST = Cap5
EXPAND += cainfo.pl@ caput.pl@ caget.pl@ camonitor.pl@ CA.pm@
PERL_SCRIPTS += cainfo.pl
PERL_SCRIPTS += caput.pl
PERL_SCRIPTS += caget.pl

View File

@@ -1,7 +1,10 @@
#!/usr/bin/perl
use strict;
use lib '@TOP@/lib/perl';
use FindBin qw($Bin);
use lib "$Bin/../../lib/perl";
use Getopt::Std;
use CA;

View File

@@ -1,7 +1,10 @@
#!/usr/bin/perl
use strict;
use lib '@TOP@/lib/perl';
use FindBin qw($Bin);
use lib "$Bin/../../lib/perl";
use Getopt::Std;
use CA;

View File

@@ -1,7 +1,10 @@
#!/usr/bin/perl
use strict;
use lib '@TOP@/lib/perl';
use FindBin qw($Bin);
use lib "$Bin/../../lib/perl";
use Getopt::Std;
use CA;

View File

@@ -1,7 +1,10 @@
#!/usr/bin/perl
use strict;
use lib '@TOP@/lib/perl';
use FindBin qw($Bin);
use lib "$Bin/../../lib/perl";
use Getopt::Std;
use CA;