From a69aca5b140d0f2aa2297e685a1b06b601b3810f Mon Sep 17 00:00:00 2001
From: Paul Cantalupo <pcantalupo@gmail.com>
Date: Wed, 17 Nov 2010 10:36:39 -0500
Subject: [PATCH] Added length to foreach loop to match documentation for "to_string" sub

---
 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