Commit b4f671b4 authored by Graham McVicker's avatar Graham McVicker
Browse files

do not assign to $_ in revcomp

parent 8b70751a
......@@ -298,10 +298,11 @@ sub store {
sub _reverse_comp {
my $self = shift;
my $seq = shift;
$_ = reverse( $seq );
tr/CGTAcgta/GCATgcat/;
return $_;
$seq = reverse( $seq );
$seq =~
tr/acgtrymkswhbvdnxACGTRYMKSWHBVDNX/tgcayrkmswdvbhnxTGCAYRKMSWDVBHNX/;
return $seq;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment