[Bioperl-guts-l] bioperl commit

[Brian Osborne]

bosborne
Tue May 18 07:54:30 EDT 2004
Update of /home/repository/bioperl/bioperl-live/doc/howto/sgml
In directory pub.open-bio.org:/tmp/cvs-serv26729

Modified Files:
	Feature-Annotation.sgml 
Log Message:
Typos

bioperl-live/doc/howto/sgml Feature-Annotation.sgml,1.15,1.16
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/doc/howto/sgml/Feature-Annotation.sgml,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- /home/repository/bioperl/bioperl-live/doc/howto/sgml/Feature-Annotation.sgml	2004/04/29 11:47:25	1.15
+++ /home/repository/bioperl/bioperl-live/doc/howto/sgml/Feature-Annotation.sgml	2004/05/18 11:54:30	1.16
@@ -393,19 +393,20 @@
         use Bio::SeqIO;
 
 	my $seqio_object = Bio::SeqIO->new(-file => $gb_file);
-         my $seq_object = $seqio_object->next_seq;
+        my $seq_object = $seqio_object->next_seq;
 
 	foreach my $feat_object ($seq_object->get_SeqFeatures) {
 	  if ($feat_object->primary_tag eq "CDS") {
 	    print $feat_object->spliced_seq->seq,"\n";
-	    # e.g. 'ATTATTTTCGCTCGCTTCTCGCGCTTTTTGAGATAAGGTCGCGT...'
-	    foreach my $val ($feat->get_tag_values('gene')
-                             if ($feat->has_tag('gene')) {
+	# e.g. 'ATTATTTTCGCTCGCTTCTCGCGCTTTTTGAGATAAGGTCGCGT...'
+	    foreach my $val ($feat->get_tag_values('gene')) {
+	      if ($feat->has_tag('gene')) {
 	      print "gene: ",$val,"\n";
-	      # e.g. 'NDP', from a line like '/gene="NDP"'
+	# e.g. 'NDP', from a line like '/gene="NDP"'
+	      }
             }
-	  }
-        }
+          }
+        }	
       </programlisting> 
     </para>
     <para>