[Bioperl-guts-l] bioperl-live/Bio SearchIO.pm,1.43,1.44

Senduran Balasubramaniam sendu at dev.open-bio.org
Tue Jun 26 05:37:02 EDT 2007


Update of /home/repository/bioperl/bioperl-live/Bio
In directory dev.open-bio.org:/tmp/cvs-serv16240/Bio

Modified Files:
	SearchIO.pm 
Log Message:
flush after every write_result

Index: SearchIO.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/SearchIO.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** SearchIO.pm	14 Jun 2007 14:16:09 -0000	1.43
--- SearchIO.pm	26 Jun 2007 09:37:00 -0000	1.44
***************
*** 331,336 ****
     my $str = $self->writer->to_string( $result, @args);
     $self->{'_notfirsttime'} = 1;
-    # print "Got string: \n$str\n";
     $self->_print( "$str" ) if defined $str;
     return 1;
  }
--- 331,337 ----
     my $str = $self->writer->to_string( $result, @args);
     $self->{'_notfirsttime'} = 1;
     $self->_print( "$str" ) if defined $str;
+    
+    $self->flush if $self->_flush_on_write && defined $self->_fh;
     return 1;
  }



More information about the Bioperl-guts-l mailing list