check_BDBHs.pl now guesses -i strings literally, escaping special chars

eead-csic-compbio · Mar 10, 2023 · 10c6b74 · 10c6b74
1 parent 41f1956
commit 10c6b74
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/CHANGES.txt b/CHANGES.txt
@@ -401,3 +401,4 @@
 22082022: updated manual-est with description of pangenome matrix versions taken from tutorial
 24082022: updated README files and contributors in manuals
 07122022: compare_clusters.pl can intersect clusters from get_pangenes.pl
+10032023: check_BDBHs.pl now guesses -i strings literally, escaping special chars
diff --git a/check_BDBHs.pl b/check_BDBHs.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 
-# 2013-20 Bruno Contreras-Moreira (1) and Pablo Vinuesa (2):
-# 1: http://www.eead.csic.es/compbio (Laboratory of Computational Biology, EEAD/CSIC, Spain)
+# 2013-23 Bruno Contreras-Moreira (1) and Pablo Vinuesa (2):
+# 1: https://www.eead.csic.es/compbio (Laboratory of Computational Biology, EEAD/CSIC, Spain)
 # 2: http://www.ccg.unam.mx/~vinuesa (Center for Genomic Sciences, UNAM, Mexico)
 
 # This script can be used to retrieve BLAST (bidirectional) best hits produced by get_homologues.pl and get_homologues-est.pl
@@ -89,7 +89,7 @@
   open(P2O,$p2ofilename);
   while(<P2O>)
   {
-    print if(/$INP_id/i);
+    print if(/\Q$INP_id\E/i);
   }
   close(P2O);
   exit;