--- meme_3.5.4/website/cgi-bin/meme.pl 2006-09-21 19:46:29.000000000 +0000 +++ trunk/website/cgi-bin/meme.pl 2007-09-10 00:28:33.000000000 +0000 @@ -1,6 +1,6 @@ #!@WHICHPERL@ ## -## $Id: meme.pl 1339 2006-09-21 19:46:28Z tbailey $ +## $Id: meme.pl 2054 2007-09-10 00:27:42Z tbailey $ ## ## $Log$ ## Revision 1.12 2006/03/07 23:30:19 nadya @@ -467,21 +467,21 @@ # check against allowed dna letters $x = $_; - $x =~ tr/ABCDGHKMNRSTUVWY//cd; + $x =~ tr/ABCDGHKMNRSTUVWY*-//cd; $new = length $x; if ($old == $new) { "dna"; } else { # check against allowed protein letters $x = $_; - $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ//cd; + $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ*-//cd; $new = length $x; if ($old == $new) { "protein"; } else { # get the unknown letters $x = $_; - $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ//d; + $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ*-//d; &whine(" Your sequences contained the following unrecognized letters: $x.
--- meme_3.5.4/website/cgi-bin/mast.pl 2006-09-21 19:46:29.000000000 +0000 +++ trunk/website/cgi-bin/mast.pl 2007-09-10 00:38:14.000000000 +0000 @@ -1,6 +1,6 @@ #!@WHICHPERL@ ## -## $Id: mast.pl 1339 2006-09-21 19:46:28Z tbailey $ +## $Id: mast.pl 2055 2007-09-10 00:37:11Z tbailey $ ## ## $Log$ ## Revision 1.8 2006/03/07 23:30:19 nadya @@ -479,21 +479,21 @@ # check against allowed nucleotide letters $x = $_; - $x =~ tr/ABCDGHKMNRSTUVWY//cd; + $x =~ tr/ABCDGHKMNRSTUVWY*-//cd; $new = length $x; if ($old == $new) { return("DNA"); } else { # check against allowed protein letters $x = $_; - $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ//cd; + $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ*-//cd; $new = length $x; if ($old == $new) { return("PROTEIN"); } else { # get the unknown letters $x = $_; - $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ//d; + $x =~ tr/ABCDEFGHIKLMNPQRSTUVWXYZ*-//d; &whine(" Your sequences contained the following unrecognized letters: $x.