[Bioperl-guts-l] bioperl commit

[Brian Osborne]

bosborne
Thu May 13 21:59:17 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/SeqFeature
In directory pub.open-bio.org:/tmp/cvs-serv1168

Modified Files:
	Similarity.pm 
Log Message:
Will's fix

bioperl-live/Bio/SeqFeature Similarity.pm,1.11,1.12
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Similarity.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Similarity.pm	2003/05/15 00:20:41	1.11
+++ /home/repository/bioperl/bioperl-live/Bio/SeqFeature/Similarity.pm	2004/05/14 01:59:17	1.12
@@ -75,16 +75,16 @@
 @ISA = qw(Bio::SeqFeature::Generic);
 
 sub new {
-    my ( $caller, @args) = @_;   
-    my ($self) = $caller->SUPER::new(@args); 
+    my ( $caller, @args) = @_;
+    my ($self) = $caller->SUPER::new(@args);
 
     my ($primary,$evalue, $bits, $frac,$seqlen,$seqdesc) =
 	$self->_rearrange([qw(PRIMARY
 			      EXPECT
 			      BITS
 			      FRAC
+			      SEQLENGTH
 			      SEQDESC
-			      SEQLENGTH				      
 			      )], at args);
 
     defined $evalue && $self->significance($evalue);