diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-28 10:09:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-28 10:09:06 +0000 |
| commit | 39247d21083f30a5905ece7297f9e497bb52bcbb (patch) | |
| tree | 31b08d2fb0c2de6651dd03488ecb5b3c4efdb534 /perl-install | |
| parent | 8c147bebe681e81af173885b6fb86636a9fea22d (diff) | |
| download | drakx-backup-do-not-use-39247d21083f30a5905ece7297f9e497bb52bcbb.tar drakx-backup-do-not-use-39247d21083f30a5905ece7297f9e497bb52bcbb.tar.gz drakx-backup-do-not-use-39247d21083f30a5905ece7297f9e497bb52bcbb.tar.bz2 drakx-backup-do-not-use-39247d21083f30a5905ece7297f9e497bb52bcbb.tar.xz drakx-backup-do-not-use-39247d21083f30a5905ece7297f9e497bb52bcbb.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 74fdfc5c9..4433f0650 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -390,8 +390,7 @@ sub create_factory_menu_ { my $widget = Gtk2::ItemFactory->new($type, $name, my $accel_group = Gtk2::AccelGroup->new); $widget->create_items([ @menu_items ]); $window->add_accel_group($accel_group); - my $menu = $widget->get_widget($name); - $menu, $menu->{factory} = $widget; + ($widget->get_widget($name), $widget); } sub create_factory_menu { create_factory_menu_(Gtk2::MenuBar->get_type, '<main>', @_) } |