[Bioperl-guts-l] [15756] bioperl-live/trunk/Bio/Tools/EUtilities/Link/LinkSet.pm: fix two bugs found on mail list (thx to Adam Witney)

Christopher John Fields cjfields at dev.open-bio.org
Wed Jun 10 09:25:47 EDT 2009


Revision: 15756
Author:   cjfields
Date:     2009-06-10 09:25:46 -0400 (Wed, 10 Jun 2009)

Log Message:
-----------
fix two bugs found on mail list (thx to Adam Witney)

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Tools/EUtilities/Link/LinkSet.pm

Modified: bioperl-live/trunk/Bio/Tools/EUtilities/Link/LinkSet.pm
===================================================================
--- bioperl-live/trunk/Bio/Tools/EUtilities/Link/LinkSet.pm	2009-06-10 04:07:18 UTC (rev 15755)
+++ bioperl-live/trunk/Bio/Tools/EUtilities/Link/LinkSet.pm	2009-06-10 13:25:46 UTC (rev 15756)
@@ -233,7 +233,7 @@
 =cut
 
 sub get_link_name {
-    return ($_[0]->get_linknames)[0];
+    return ($_[0]->get_link_names)[0];
 }
 
 =head2 get_submitted_ids
@@ -480,7 +480,9 @@
 
 sub _add_submitted_ids {
     my ($self, $data) = @_;
-    @{$self->{'_submitted_ids'}} = @{$data->{IdList}->{Id}} ;
+    if (exists $data->{IdList}->{Id}) {
+        @{$self->{'_submitted_ids'}} = @{$data->{IdList}->{Id}} ;
+    }
 }
 
 sub _add_retrieved_ids {




More information about the Bioperl-guts-l mailing list