summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 73376389d..21b9550c6 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -588,7 +588,7 @@ sub ask_fromW {
my (@widgets) = @_;
gtkpack__(Gtk2::VBox->new,
map {
- $_->{real_w} =~ /Gtk2::CheckButton/ && !$_->{icon_w} && !$_->{e}{label} ?
+ $_->{real_w}->isa("Gtk2::CheckButton") && !$_->{icon_w} && !$_->{e}{label} ?
$_->{real_w} : gtkpack_(Gtk2::HBox->new,
0, $_->{icon_w},
0, gtkadd_widget($label_sizegrp, $_->{e}{label}),