properly get the hash value

svn path=/bioperl-run/trunk/; revision=13479
bioperl · Jul 11, 2003 · 2e30fe1 · 2e30fe1
1 parent a9506ce
commit 2e30fe1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/Tools/Run/Phylo/Phylip/Neighbor.pm b/Bio/Tools/Run/Phylo/Phylip/Neighbor.pm
@@ -521,7 +521,7 @@ sub _setparams {
     my $param_string = "";
     my $type ="";
     my $version = $self->version;
-    my %menu = %{%Bio::Tools::Run::Phylo::Phylip::PhylipConf::Menu->{$version}->{'NEIGHBOR'}};
+    my %menu = %{$Bio::Tools::Run::Phylo::Phylip::PhylipConf::Menu{$version}->{'NEIGHBOR'}};
 
     foreach  my $attr ( @NEIGHBOR_PARAMS) {
     	$value = $self->$attr();