src/hg/encode/encodeValidate/doEncodeValidate.pl 1.165

1.165 2009/03/07 23:24:29 mikep
CS fasta can have G sequences evidnetly
Index: src/hg/encode/encodeValidate/doEncodeValidate.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeValidate/doEncodeValidate.pl,v
retrieving revision 1.164
retrieving revision 1.165
diff -b -B -U 4 -r1.164 -r1.165
--- src/hg/encode/encodeValidate/doEncodeValidate.pl	7 Mar 2009 23:04:19 -0000	1.164
+++ src/hg/encode/encodeValidate/doEncodeValidate.pl	7 Mar 2009 23:24:29 -0000	1.165
@@ -824,9 +824,9 @@
     my $line = 0;
     my $state = 'header';
     my $seqName;
     my $states = {header => {REGEX => "^>\\d+_\\d+_\\d+_\.\\d+.*", NEXT => 'seq'},
-                  seq => {REGEX => "^T\\d+", NEXT => 'header'},
+                  seq => {REGEX => "^[GT]\\d+", NEXT => 'header'},
                   };
     while(<$fh>) {
         chomp;
         $line++;