From 7c64e8410d291dbd7097b2cd8fc948d95063d153 Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@bioperl.org>
Date: Thu, 4 Nov 2010 23:26:28 -0500
Subject: [PATCH] check for definedness prior to calling methods

---
 Bio/DB/Biblio/eutils.pm | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/Bio/DB/Biblio/eutils.pm b/Bio/DB/Biblio/eutils.pm
index d57876429..a4c6eab84 100644
--- a/Bio/DB/Biblio/eutils.pm
+++ b/Bio/DB/Biblio/eutils.pm
@@ -367,19 +367,25 @@ sub find {
   #should we be using the ids, or the count tag?
   ##
   my($count_element)  = $self->twig->get_xpath('//Count');
-  my $count = $count_element->text();
-  $self->count(scalar(@ids));
+  if (defined $count_element) {
+    my $count = $count_element->text();
+    $self->count(scalar(@ids));
+  }
 
   my($retmax_element) = $self->twig->get_xpath('//RetMax');
-  my $retmax = $retmax_element->text();
+  if (defined $retmax_element) {
+    my $retmax = $retmax_element->text();
+  }
 
   my($querykey_element) = $self->twig->get_xpath('//QueryKey');
-  my $querykey = $querykey_element->text();
-  $self->query_key($querykey);
+  if (defined $querykey_element) {
+    $self->query_key($querykey_element->text());
+  }
 
   my($webenv_element) = $self->twig->get_xpath('//WebEnv');
-  my $webenv = $webenv_element->text();
-  $self->collection_id($webenv);
+  if (defined $webenv_element) {
+    $self->collection_id($webenv_element->text());
+  }
 
   #initialize/reset cursor
   $self->cursor(0);
-- 
2.11.4.GIT