diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 2852f9ad5..445586d3e 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -636,7 +636,7 @@ sub ask_browse_tree_info_refW { foreach my $ic (@{$common->{icons} || []}) { push @toolbar, ( $ic->{icon} => [ $ic->{help}, sub { if ($ic->{code}) { - my $w = $ic->{wait_msg} && $o->wait_message('', $ic->{wait_msg}); + my $w = $ic->{wait_message} && $o->wait_message('', $ic->{wait_message}); $ic->{code}(); $add_nodes->($common->{state}{flat}); } |