1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 2a568e935..5988d2091 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -593,16 +593,12 @@ sub ask_fromW {
 	}
     };
 
-    my $set_advanced_raw = sub {
-        ($advanced) = @_;
-        $advanced ? $advanced_pack->show : $advanced_pack->hide;
-    };
     my $first_time = 1;
     my $set_advanced = sub {
 	($advanced) = @_;
 	$set_default_size->() if $advanced;
 	$update->($common->{callbacks}{advanced}) if $advanced && !$first_time;
-	$set_advanced_raw->($advanced);
+	$advanced ? $advanced_pack->show : $advanced_pack->hide;
 	@widgets = (@widgets_always, if_($advanced, @widgets_advanced));
 	$mainw->sync; #- for $set_all below (mainly for the set of clist)
 	$first_time = 0;