Change to how chr is retrieved from the gvcf in extract_gvcf_variants.pl

RTIInternational · May 9, 2024 · 20e00e5 · 20e00e5
1 parent 9887938
commit 20e00e5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t1dgrs2_pipeline/v1.0/extract_gvcf_variants.pl b/t1dgrs2_pipeline/v1.0/extract_gvcf_variants.pl
@@ -88,7 +88,7 @@ sub flip {
             !$pass_only
             || (uc($F[6]) eq "PASS")
         ) {
-            if ($F[0] =~ /chr(\d+)$/) {
+            if ($F[0] =~ /(\d+)$/) {
                 my $chr = $1;
                 my @keys = split(":", $F[8]);
                 my @values = split(":", $F[9]);