1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
--- a/Build.PL
+++ b/Build.PL
@@ -68,7 +68,13 @@
# If either of these are set, we expect to find the htslib files there:
# (They're explicitly set by the user, so we shouldn't fall back to
# finding another copy somewhere else.)
- if (my $dir = $self->args('htslib')) {
+ if (my ($incdir, $libdir) = ($self->args('htslib-includedir'), $self->args('htslib-libdir'))) {
+ return 1 if $self->find_hts_in_split_install_dirs($incdir, $libdir);
+ $self->die_hts_not_found(
+ "--htslib-includedir '$incdir' or --htslib-libdir '$libdir' command line parameters do not contain expected files\n"
+ );
+ }
+ elsif (my $dir = $self->args('htslib')) {
return 1 if $self->find_hts_in_build_dir($dir);
return 1 if $self->find_hts_in_install_dir($dir);
$self->die_hts_not_found(
@@ -155,6 +161,22 @@
}
}
+sub find_hts_in_split_install_dirs {
+ my ($self, $hts_include, $hts_lib) = @_;
+
+ chomp($hts_include);
+ chomp($hts_lib);
+
+ if ((-f "$hts_lib/libhts.so" || -f "$hts_lib/libhts.a") && -f "$hts_include/hts.h") {
+ $self->config_data('hts_lib' => $hts_lib);
+ $self->config_data('hts_include' => $hts_include);
+ return 1;
+ }
+ else {
+ return 0;
+ }
+}
+
sub die_hts_not_found {
my ($self, $msg) = @_;
@@ -166,6 +188,7 @@
This script will attempt to locate htslib by looking for hts.h and libhts.so/libhts.a in:
+ 0. --htslib-includedir and --htslib-libdir command line arguments
1. --htslib command line argument
2. HTSLIB_DIR environment variable
3. --prefix command line argument (which also sets installation location)
|
GitWeb
