Update unikseq.pl

fixed $tsvflag is missing when calling printOutput function. (Issue #2)
bcgsc · May 11, 2023 · 97345c7 · 97345c7
1 parent e8eadcb
commit 97345c7
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/unikseq.pl b/unikseq.pl
@@ -219,7 +219,7 @@ sub slide{
          my $entry = $1;
          $head = $_;
          if($prevhead ne $head && $prevhead ne "" && $seq ne ""){
-            &printOutput($cflag,$conseq,$seq,$preventry,$k,$in,$ex,$incount,$excount,$prop,$minnotunique,$minpercentunique,$maxpercentoutgroup,$tchar);
+            &printOutput($cflag,$conseq,$seq,$preventry,$k,$in,$ex,$incount,$excount,$prop,$minnotunique,$minpercentunique,$maxpercentoutgroup,$tchar,$tsvflag);
          }
          $seq = "";
          $prevhead = $head;
@@ -229,7 +229,7 @@ sub slide{
          $seq .= uc($seqstretch);
       }
    }
-   &printOutput($cflag,$conseq,$seq,$preventry,$k,$in,$ex,$incount,$excount,$prop,$minnotunique,$minpercentunique,$maxpercentoutgroup,$tchar);
+   &printOutput($cflag,$conseq,$seq,$preventry,$k,$in,$ex,$incount,$excount,$prop,$minnotunique,$minpercentunique,$maxpercentoutgroup,$tchar,$tsvflag);
 
    close OUT;
    close TSV if($tsvflag);