do not assign to $_ in revcomp

b4f671b4 · Graham McVicker · 8b70751a · b4f671b4
Commit b4f671b4 authored Jul 07, 2003 by Graham McVicker
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

modules/Bio/EnsEMBL/DBSQL/SequenceAdaptor.pm modules/Bio/EnsEMBL/DBSQL/SequenceAdaptor.pm +5 -4

No files found.
--- 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;
 }