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);
 }