[Bioperl-guts-l] [15045] bioperl-live/trunk/Bio/SeqIO/bsml.pm: Add warning for missing data (real bug)

Christopher John Fields cjfields at dev.open-bio.org
Fri Nov 28 00:58:38 EST 2008


Revision: 15045
Author:   cjfields
Date:     2008-11-28 00:58:37 -0500 (Fri, 28 Nov 2008)

Log Message:
-----------
Add warning for missing data (real bug)

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:47:14 UTC (rev 15044)
+++ bioperl-live/trunk/Bio/SeqIO/bsml.pm	2008-11-28 05:58:37 UTC (rev 15045)
@@ -333,6 +333,7 @@
 	foreach my $tag (keys %tags) {
 	    my $rt = &FIRSTDATA($ref->getElementsByTagName($tags{$tag})
 				->item(0));
+        $self->warn("No data returned for $tag") unless $rt;
 	    $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




More information about the Bioperl-guts-l mailing list