Changed name of function getContigHash to process_file. This makes mo…

…re sense in the workflow (process_file -> process_seq -> process_ssr)
mestato · a63a10458a7b19f55400424e45c4d7ee68900d8f · mestato committed Jul 4, 2015 · Jul 4, 2015 · a63a104
1 parent 66a53d4
commit a63a10458a7b19f55400424e45c4d7ee68900d8f
Unified Split

Showing with 3 additions and 2 deletions.

+3 −2 hwg_gssr_scripts/findSSRs_post_assembly.pl
diff --git a/hwg_gssr_scripts/findSSRs_post_assembly.pl b/hwg_gssr_scripts/findSSRs_post_assembly.pl
@@ -252,10 +252,11 @@ sub main{
     $tri_primer_out = "$fasta_file.tri_primer_report.txt";
     $tetra_primer_out = "$fasta_file.tetra_primer_report.txt";
 
+	##---------------------------------------------------------------
     print "finding SSRs...\n";
     open(PI3, ">$p3_input") or die $!;
     my $p3_input_fh = *PI3;
-    getContigHash($fasta_file, $masked_file, $ssr_out, $p3_input_fh);
+    process_file($fasta_file, $masked_file, $ssr_out, $p3_input_fh);
     close PI3;
 
     print "running primer3...\n";
@@ -297,7 +298,7 @@ sub main{
 
 ###############################################################
 
-sub getContigHash{
+sub process_file{
     my $fasta_file  = $_[0]; # file name
     my $masked_file = $_[1]; # file name
     my $ssr_out     = $_[2]; # file name