add length so this matches to_string documentation (courtesy Paul Can…

…talupo)
bioperl · Nov 20, 2010 · e9b25cf · e9b25cf
1 parent d7685bd
commit e9b25cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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";