summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-26 19:30:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-26 19:30:50 +0000
commit84a61d8636c74e29d4d000c65857f33797de8331 (patch)
tree4e34e3a1c12bb7ff392f75c4f46a67c671677034 /perl-install/ugtk2.pm
parent64c05dd1d5e523911d77b8ec1e6a8493b32a04f1 (diff)
downloaddrakx-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/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm8
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'));