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
|
Author: Andreas Tille <tille@debian.org>
Last-Update: 2022-01-22
Description: the preparation of *.blk files is done by a Perl script in
current directory which is not in PATH - use explicit path
to make sure it will be found
--- a/perl/makeidx.pl
+++ b/perl/makeidx.pl
@@ -154,7 +154,7 @@ sub makeidx {
sub makeblk {
my ($fa, $blk) = @_;
- my $cmd = "makblk.pl -W$blk $opt $fa";
+ my $cmd = "$scriptpath/makblk.pl -W$blk $opt $fa";
print STDERR "$cmd\n";
system($cmd);
}
--- a/seqdb/makeidx.pl
+++ b/seqdb/makeidx.pl
@@ -40,6 +40,8 @@
###############################################################################
use strict;
+use FindBin;
+my $scriptpath = $FindBin::Bin;
my ($obj, $gz, $opt, $compress) = ('i');
my $makefile = "./Makefile";
@@ -152,7 +154,7 @@ sub makeidx {
sub makeblk {
my ($fa, $blk) = @_;
- my $cmd = "makblk.pl -W$blk $opt $fa";
+ my $cmd = "$scriptpath/makblk.pl -W$blk $opt $fa";
print STDERR "$cmd\n";
system($cmd);
}
|
