[Bioperl-guts-l] bioperl-live/Bio/AlignIO stockholm.pm, 1.15.4.4, 1.15.4.5

[Christopher John Fields]

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

Modified Files:
      Tag: branch-1-5-2
	stockholm.pm 
Log Message:
merge from HEAD

Index: stockholm.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/AlignIO/stockholm.pm,v
retrieving revision 1.15.4.4
retrieving revision 1.15.4.5
diff -C2 -d -r1.15.4.4 -r1.15.4.5
*** stockholm.pm	8 Nov 2006 19:26:25 -0000	1.15.4.4
--- stockholm.pm	8 Nov 2006 19:40:35 -0000	1.15.4.5
***************
*** 287,291 ****
                      #                       # dblink       parameter list    
                      $annotation{ 'aln_dblink' }->[$lnkct] = $ref;
-                     #$self->debug(Dumper(%ref));
                      $lnkct++;
                      
--- 287,290 ----
***************
*** 478,482 ****
          while (my $ann = shift @anns) {
              # using Text::Wrap::wrap() for word wrap
-             #$self->debug(Dumper($ann)) if $ann->isa('Bio::Annotation::DBLink');
              my ($text, $alntag, $data);
              if ($tag eq 'RX') {
--- 477,480 ----
***************
*** 506,510 ****
                  $data = $aln->no_sequences;
              } else {
-                 $self->debug(Dumper($ann)) if $tag eq 'DR';
                  $alntag = sprintf('%-10s',$aln_ann.$tag);
                  $data = $ann;
--- 504,507 ----