From 97345c7a54ad04ee4b3b7c2446b5c519e2067547 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ren=C3=A9?= <rwarren@bcgsc.ca>
Date: Thu, 11 May 2023 08:48:58 -0700
Subject: [PATCH] Update unikseq.pl

fixed $tsvflag is missing when calling printOutput function. (Issue #2)
---
 unikseq.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/unikseq.pl b/unikseq.pl
index 3c73e68..10beab2 100755
--- 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);