From a63a10458a7b19f55400424e45c4d7ee68900d8f Mon Sep 17 00:00:00 2001
From: mestato <mstaton1@utk.edu>
Date: Sat, 4 Jul 2015 09:56:14 -0400
Subject: [PATCH] Changed name of function getContigHash to process_file. This
 makes more sense in the workflow (process_file -> process_seq -> process_ssr)

---
 hwg_gssr_scripts/findSSRs_post_assembly.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hwg_gssr_scripts/findSSRs_post_assembly.pl b/hwg_gssr_scripts/findSSRs_post_assembly.pl
index 624757c..9ab96ae 100755
--- 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