[Bioperl-guts-l] [15046] bioperl-live/trunk/Bio/SeqIO/bsml.pm: rearrange to avoid unnecessary warnings

[Christopher John Fields]

Revision: 15046
Author:   cjfields
Date:     2008-11-28 01:00:34 -0500 (Fri, 28 Nov 2008)

Log Message:
-----------
rearrange to avoid unnecessary warnings

Modified Paths:
--------------
    bioperl-live/trunk/Bio/SeqIO/bsml.pm

Modified: bioperl-live/trunk/Bio/SeqIO/bsml.pm
===================================================================
--- bioperl-live/trunk/Bio/SeqIO/bsml.pm	2008-11-28 05:58:37 UTC (rev 15045)
+++ bioperl-live/trunk/Bio/SeqIO/bsml.pm	2008-11-28 06:00:34 UTC (rev 15046)
@@ -333,7 +333,10 @@
 	foreach my $tag (keys %tags) {
 	    my $rt = &FIRSTDATA($ref->getElementsByTagName($tags{$tag})
 				->item(0));
-        $self->warn("No data returned for $tag") unless $rt;
+        unless ($rt) {
+            $self->warn("No data returned for $tag");
+            next;
+        }
 	    $rt =~ s/^[\s\r\n]+//;  # Kill leading space
 	    $rt =~ s/[\s\r\n]+$//;  # Kill trailing space
 	    $rt =~ s/[\s\r\n]+/ /;  # Collapse internal space runs