[Bioperl-guts-l] bioperl commit

Jason Stajich jason at pub.open-bio.org
Thu Jan 1 20:19:10 EST 2004


jason
Thu Jan  1 20:19:10 EST 2004
Update of /home/repository/bioperl/bioperl-live/Bio/SeqIO
In directory pub.open-bio.org:/tmp/cvs-serv23120

Modified Files:
      Tag: branch-1-4
	genbank.pm 
Log Message:
merge fix for trailing space onto branch

bioperl-live/Bio/SeqIO genbank.pm,1.99,1.99.2.1
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqIO/genbank.pm,v
retrieving revision 1.99
retrieving revision 1.99.2.1
diff -u -r1.99 -r1.99.2.1
--- /home/repository/bioperl/bioperl-live/Bio/SeqIO/genbank.pm	2003/12/22 18:33:15	1.99
+++ /home/repository/bioperl/bioperl-live/Bio/SeqIO/genbank.pm	2004/01/02 01:19:10	1.99.2.1
@@ -540,7 +540,7 @@
       if($builder->want_slot('seq')) {
 	  # the fact that we want a sequence does not necessarily mean that
 	  # there also is a sequence ...
-	  if(defined($_) && s/^ORIGIN//) {
+	  if(defined($_) && s/^ORIGIN\s+//) {
 	      chomp;
 	      if( $annotation && length($_) > 0 ) {
 		  $annotation->add_Annotation('origin',
@@ -816,7 +816,8 @@
 	}
 
 	my ($o) = $seq->annotation->get_Annotations('origin');
-	$self->_print(sprintf("%-6s%s\n",'ORIGIN',$o ? $o->value : ''));
+	$self->_print(sprintf("%-12s%s\n",
+			      'ORIGIN', $o ? $o->value : ''));
         # print out the sequence
 	my $nuc = 60;		# Number of nucleotides per line
 	my $whole_pat = 'a10' x 6; # Pattern for unpacking a whole line



More information about the Bioperl-guts-l mailing list