From 1ea57f3de909b4867ea28382c327b1f025180ba2 Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Tue, 9 Dec 2008 06:03:12 +0000
Subject: [PATCH] Squash warning

svn path=/bioperl-live/trunk/; revision=15124
---
 Bio/TreeIO/phyloxml.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bio/TreeIO/phyloxml.pm b/Bio/TreeIO/phyloxml.pm
index e0c8a1d75..5716835b2 100644
--- a/Bio/TreeIO/phyloxml.pm
+++ b/Bio/TreeIO/phyloxml.pm
@@ -207,7 +207,7 @@ sub add_phyloXML_annotation
 
   # pop from temporary list
   pop @{$self->{'_currentitems'}};
-  $self->{'_lastitem'}->{ $reader->name }--;
+  $self->{'_lastitem'}->{ $reader->name }-- if $reader->name;
   pop @{$self->{'_lastitem'}->{'current'}};
   
   return $obj;
-- 
2.11.4.GIT