From 640d76b4b628217fc20a479a9469c4f6f08a391c Mon Sep 17 00:00:00 2001
From: cjfields <cjfields@bioperl.org>
Date: Tue, 16 Dec 2008 03:25:40 +0000
Subject: [PATCH] hash ref, not array ref

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

diff --git a/Bio/Tree/Node.pm b/Bio/Tree/Node.pm
index a00e59ed0..9d3fd1348 100644
--- a/Bio/Tree/Node.pm
+++ b/Bio/Tree/Node.pm
@@ -720,7 +720,7 @@ sub node_cleanup {
     #*** below is wrong, cleanup doesn't actually occur. Will replace with:
     # $self->remove_all_Descendents; once further fixes in place..
     if( defined $self->{'_desc'} &&
-        ref($self->{'_desc'}) =~ /ARRAY/i ) {
+        ref($self->{'_desc'}) =~ /HASH/i ) {
         while( my ($nodeid,$node) = each %{ $self->{'_desc'} } ) {
             $node->ancestor(undef); # insure no circular references
             $node = undef;
-- 
2.11.4.GIT