From 84a61d8636c74e29d4d000c65857f33797de8331 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 26 Nov 2002 19:30:50 +0000
Subject: make perl_checker happy

---
 perl-install/ugtk2.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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'));
-- 
cgit v1.2.1