From 316f858a4ad522a3ab67548d6c184d95fc5d06e5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 12 Nov 2003 17:14:56 +0000 Subject: forward fix logic test instead of binary one (wasn't a bug there since values were both undef/0 or 1) --- perl-install/interactive/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index b588094f0..ea5d746a3 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -601,7 +601,7 @@ sub ask_fromW { my $set_advanced = sub { ($advanced) = @_; $set_default_size->() if $advanced; - $update->($common->{callbacks}{advanced}) if $advanced & !$first_time; + $update->($common->{callbacks}{advanced}) if $advanced && !$first_time; $set_advanced_raw->($advanced); @widgets = (@widgets_always, if_($advanced, @widgets_advanced)); $mainw->sync; #- for $set_all below (mainly for the set of clist) -- cgit v1.2.1