adding a final flush to the write() method

(fixes a bork on my system; don't think it can hurt) svn path=/bioperl-dev/trunk/; revision=15918
bioperl · Aug 13, 2009 · 0e8e02d · 0e8e02d
1 parent 6df86eb
commit 0e8e02d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Bio/NexmlIO.pm b/Bio/NexmlIO.pm
@@ -406,7 +406,9 @@ sub write {
 	}
 
 	#write nexml document to stream
-	$self->_print($proj_doc->to_xml());
+	my $ret = $self->_print($proj_doc->to_xml());
+	$self->flush;
+	return($ret);
 }
 
 1;