genbank_ref_extractor: typo on all instances of var name (fixing aest…

…hetic only)
bioperl · Sep 22, 2011 · 77c7e35 · 77c7e35
1 parent cbc5cd5
commit 77c7e35
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/scripts/Bio-DB-EUtilities/bp_genbank_ref_extractor.pl b/scripts/Bio-DB-EUtilities/bp_genbank_ref_extractor.pl
@@ -57,7 +57,7 @@ =head1 OPTIONS
 is a regex that will case-insensitive. If it matches more than one assembly, it will
 use the first match. It defauls to C<reference (primary )?assembly>.
 =cut
-my $assemly_regex = 'reference (primary )?assembly';
+my $assembly_regex = 'reference (primary )?assembly';
 
 =item B<--debug>
 
@@ -293,7 +293,7 @@ =head1 NOTES ON USAGE
 ################################################################################
 
 GetOptions(
-            'assembly:s'          => \$assemly_regex,
+            'assembly:s'          => \$assembly_regex,
             'debug'               => \$debug,
             'down|downstream=i'   => \$downstream,
             'format=s'            => \$format,
@@ -534,7 +534,7 @@ sub analyze_entrez_genes {
 
     foreach my $l (@{$result->{'locus'}}){
       $l = $l->[0] if(ref($l) eq 'ARRAY');
-      next unless ($l->{'heading'} && $l->{'heading'} =~ m/$assemly_regex/i);
+      next unless ($l->{'heading'} && $l->{'heading'} =~ m/$assembly_regex/i);
       my $ChrAccVer = $l->{'accession'};
       my $ChrStart  = $l->{'seqs'}->[0]->{'int'}->[0]->{'from'};
       my $ChrStop   = $l->{'seqs'}->[0]->{'int'}->[0]->{'to'};