diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-26 19:30:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-26 19:30:50 +0000 |
| commit | 84a61d8636c74e29d4d000c65857f33797de8331 (patch) | |
| tree | 4e34e3a1c12bb7ff392f75c4f46a67c671677034 /perl-install | |
| parent | 64c05dd1d5e523911d77b8ec1e6a8493b32a04f1 (diff) | |
| download | drakx-84a61d8636c74e29d4d000c65857f33797de8331.tar drakx-84a61d8636c74e29d4d000c65857f33797de8331.tar.gz drakx-84a61d8636c74e29d4d000c65857f33797de8331.tar.bz2 drakx-84a61d8636c74e29d4d000c65857f33797de8331.tar.xz drakx-84a61d8636c74e29d4d000c65857f33797de8331.zip | |
make perl_checker happy
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index e3bae1c3c..e7e9ece9c 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -377,7 +377,7 @@ sub create_dialog { # drakfloppy / logdrake sub destroy_window { - my($widget, $windowref, $w2) = @_; + my ($widget, $windowref, $w2) = @_; $$windowref = undef; $w2 = undef if defined $w2; 0; @@ -750,7 +750,7 @@ sub new { $o->{isEmbedded} = 1; $o->{window} = new Gtk2::HBox(0,0); $o->{rwindow} = $o->{window}; - $::Plug ||= new Gtk2::Plug ($::XID); + $::Plug ||= new Gtk2::Plug($::XID); $::Plug->show; flush(); $::Plug->add($o->{window}); @@ -1025,9 +1025,9 @@ sub ask_browse_tree_info { my $go = gtksignal_connect(Gtk2::Button->new($common->{ok}), clicked => sub { $w->{retval} = 1; Gtk2->main_quit }), - $common->{cancel} ? (gtksignal_connect(Gtk2::Button->new($common->{cancel}), clicked => sub { + $common->{cancel} ? gtksignal_connect(Gtk2::Button->new($common->{cancel}), clicked => sub { $w->{retval} = 0; - Gtk2->main_quit })) + Gtk2->main_quit }) : (), ))); gtkpack__($l, my $toolbar = Gtk2::Toolbar->new('horizontal', 'icons')); |