diff --git a/modules/Bio/EnsEMBL/DBSQL/SequenceAdaptor.pm b/modules/Bio/EnsEMBL/DBSQL/SequenceAdaptor.pm index 32f92b5d5425a439d786c8c08940a973027c44df..044eca683b48ff4eb44ac2690064c99a8924bcbf 100644 --- a/modules/Bio/EnsEMBL/DBSQL/SequenceAdaptor.pm +++ b/modules/Bio/EnsEMBL/DBSQL/SequenceAdaptor.pm @@ -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; }