Use $FindBin::Bin instead of expanding @TOP@.
This commit is contained in:
@@ -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;
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user