Permalink
Browse files

get rid of deprecation warning

svn path=/bioperl-run/trunk/; revision=13534
  • Loading branch information...
1 parent 2dc9c96 commit 8e9c6344859fdb4162ddd8a5931fb4a540b522fd @hyphaltip hyphaltip committed Jun 2, 2004
Showing with 1 addition and 1 deletion.
  1. +1 −1 Bio/Tools/Run/Phylo/Phylip/ProtDist.pm
@@ -514,7 +514,7 @@ sub _setparams {
$self = shift;
my $param_string = "";
my $cat = 0;
- my %menu = %{%Bio::Tools::Run::Phylo::Phylip::PhylipConf::Menu->{$self->version}->{'PROTDIST'}};
+ my %menu = %{$Bio::Tools::Run::Phylo::Phylip::PhylipConf::Menu{$self->version}->{'PROTDIST'}};
foreach my $attr ( @PROTDIST_PARAMS) {
$value = $self->$attr();

0 comments on commit 8e9c634

Please sign in to comment.