diff options
| -rw-r--r-- | perl-install/Xconfigurator.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 489b006e5..1c2a3f770 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -829,7 +829,7 @@ sub chooseResolutionsGtk($$;$) { #- the set function is usefull to toggle the CheckButton with the callback being ignored my $ignore; my $no_human; # is the w2_combo->entry changed by a human? - my $set = sub { $ignore = 1; $_[0]->set_active(1); $ignore = 0; }; + my $set = sub { $ignore = 1; $_[0] and $_[0]->set_active(1); $ignore = 0; }; my %monitor; $monitor{$_} = [ gtkcreate_png("monitor-" . $_ . ".png") ] foreach (640, 800, 1024, 1280); |