JPRED-2 Current state of the SVN trank

[jpred.git] / jpred / lib / FASTA.pm

diff --git a/jpred/lib/FASTA.pm b/jpred/lib/FASTA.pm
index e0a81c7..ab90d20 100644 (file)
--- a/jpred/lib/FASTA.pm
+++ b/jpred/lib/FASTA.pm
@@ -7,23 +7,24 @@ use Carp;
 use base qw(Root Sequence);
 
 sub id {
-       my ($self, $id) = @_;
+  my ( $self, $id ) = @_;
 
-       if (defined $id) {
-               #warn "'$1' detected in ID, changing to ';'\n" if $id =~ s/([:#])/;/
-       }
+  if ( defined $id ) {
 
-       $self->SUPER::id($id);
+    #warn "'$1' detected in ID, changing to ';'\n" if $id =~ s/([:#])/;/
+  }
+
+  $self->SUPER::id($id);
 }
 
 sub seq {
-       my ($self, @entries) = @_;
+  my ( $self, @entries ) = @_;
 
-       for (@entries) {
-               warn "'$1' detected in entry, changing to ';'\n" if s/([:#,])/;/
-       }
+  for (@entries) {
+    warn "'$1' detected in entry, changing to ';'\n" if s/([:#,])/;/;
+  }
 
-       $self->SUPER::seq(@entries);
+  $self->SUPER::seq(@entries);
 }
 
 1;