Commits

Sarah Richardson committed ac80abc

remember to import the proper packages

Comments (0)

Files changed (2)

bin/GD_Juggle_Codons.pl

 
 use Bio::GeneDesign;
 use Getopt::Long;
+use File::Basename;
 use Pod::Usage;
 
 use strict;

lib/Bio/GeneDesign/ReverseTranslate.pm

   }
 
   my $newseq = q{};
-  $newseq .= _weighted_rand($changehsh{$_}) foreach (split('', $pepseq));
+  $newseq .= _weighted_rand($changehsh{$_}) foreach (split q{}, $pepseq);
   return $newseq;
 }
 
     }
   }
   my $newseq = q{};
-  $newseq .= $aa_highs->{$_} foreach (split('', $pepseq));
+  $newseq .= $aa_highs->{$_} foreach (split q{}, $pepseq);
   return $newseq;
 }
 
   }
   
   my $newseq = q{};
-  foreach my $aa (split('', $pepseq))
+  foreach my $aa (split q{}, $pepseq)
   {
     my $index = _random_index(scalar(@{$cod_highs->{$aa}}));
     $newseq .= $cod_highs->{$aa}->[$index];