[Bioperl-l] git patch for Bio/Seq/PrimaryQual.pm

[Paul Cantalupo]

Hi,

I'm resending this to the list (without an attachment) since it got
flagged as having a suspicious header.


I simply added "length" to the foreach loop in sub "to_string" of
Bio/Seq/PrimaryQual.pm to match documentation of "to_string":

---
 Bio/Seq/PrimaryQual.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Bio/Seq/PrimaryQual.pm b/Bio/Seq/PrimaryQual.pm
index 4935639..30383fc 100644
--- a/Bio/Seq/PrimaryQual.pm
+++ b/Bio/Seq/PrimaryQual.pm
@@ -461,7 +461,7 @@ sub qualat {
 sub to_string {
     my ($self,$out,$result) = shift;
     $out = "qual: ".join(',',@{$self->qual()});
-    foreach (qw(display_id accession_number primary_id desc id)) {
+    foreach (qw(display_id accession_number primary_id desc id length)) {
 	$result = $self->$_();
 	if (!$result) { $result = "<unset>"; }
 	$out .= "$_: $result\n";
-- 
1.6.4.2






Paul Cantalupo
Research Specialist/Systems Programmer
University of Pittsburgh
Pittsburgh, PA 15260