From f2ee5dc319aa4713a261c3b425589ab063bbb885 Mon Sep 17 00:00:00 2001
From: asivache <asivache@348d0f76-0448-11de-a6fe-93d51630548a>
Date: Mon, 15 Nov 2010 15:28:38 +0000
Subject: [PATCH] regexp fixed, now can find OBS_COUNTS followed by  both
 [C/A/R] (obsolete) and [C/A/T] (current)

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4675 348d0f76-0448-11de-a6fe-93d51630548a
---
 perl/filterSingleSampleCalls.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/filterSingleSampleCalls.pl b/perl/filterSingleSampleCalls.pl
index 2cc49f0b4..ea92c19b1 100755
--- a/perl/filterSingleSampleCalls.pl
+++ b/perl/filterSingleSampleCalls.pl
@@ -90,7 +90,7 @@ while( <$input_stream> ) {
     my $indel_cnt = $2;
     my $cov = $3;
 
-    if ( $_ =~ /\sOBS_COUNTS\[C\/A\/R\]:(\d+)\/(\d+)\/(\d+)\s/ ) {
+    if ( $_ =~ /\sOBS_COUNTS\[C\/A\/[RT]\]:(\d+)\/(\d+)\/(\d+)\s/ ) {
         $cons_cnt = $1;
         $indel_cnt = $2;
         $cov = $3;