Mercurial > repos > dereeper > pgap

diff PGAP-1.2.1/PGAP.pl @ 5:d8c5bea1cce2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author dereeper
date Thu, 24 Jun 2021 17:56:22 +0000
parents 70b7a5270968
children
line wrap: on
line diff
--- a/PGAP-1.2.1/PGAP.pl	Thu Jun 24 16:15:34 2021 +0000
+++ b/PGAP-1.2.1/PGAP.pl	Thu Jun 24 17:56:22 2021 +0000
@@ -1804,7 +1804,8 @@
 		system("grep '>' All.pep > genelist");
 		system("$formatdb -p T -i All.pep");
 		system("$blastall -p blastp -i All.pep -d All.pep -M BLOSUM45 -m9 -e $evalue -o All.blastp -a $thread");
-		system("perl ./Blast_Filter.pl All.blastp All.pep $coverage $identity $score | $mcl - --abc -I 2.0 -o All.cluster");
+		my $dircur = dirname(__FILE__);
+		system("perl $dircur/Blast_Filter.pl All.blastp All.pep $coverage $identity $score | $mcl - --abc -I 2.0 -o All.cluster");
 		&FormatCluster("All.cluster","genelist",$spnum,\@clusters);
 		#system("rm -rf *.pep* All.blastp All.cluster genelist");
 	}