From 3567c50a33be996d7a3f4fd6c622622105d55a51 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 10 Dec 2002 00:54:27 +0000 Subject: minimal perl_checker fixes to have only warnings --- perl-install/standalone/logdrake | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone/logdrake') diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index ae217bbce..492861dd6 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -192,7 +192,7 @@ gtkadd($my_win->{window}, create_scrolled_window($log_text) )) : (1, create_scrolled_window($log_text)), if_(!$::isExplain, 0, gtkadd (gtkset_border_width(gtkset_layout(Gtk2::HButtonBox->new, 'end'), 5), - if_(!$::isFile, gtksignal_connect(new Gtk2::Button (N("Mail alert")), + if_(!$::isFile, gtksignal_connect(new Gtk2::Button(N("Mail alert")), clicked => sub { eval { alert_config() }; if ($@ =~ /wizcancel/) { $::Wizard_no_previous = 1; @@ -200,8 +200,8 @@ gtkadd($my_win->{window}, $::WizardWindow->destroy if defined $::WizardWindow; undef $::WizardWindow; } })), - gtksignal_connect(new Gtk2::Button (N("Save")), clicked => \&save), - gtksignal_connect(new Gtk2::Button ($::isEmbedded ? N("Cancel") : N("Quit")), clicked => \&quit) + gtksignal_connect(new Gtk2::Button(N("Save")), clicked => \&save), + gtksignal_connect(new Gtk2::Button($::isEmbedded ? N("Cancel") : N("Quit")), clicked => \&quit) ) ) ) @@ -383,7 +383,7 @@ my $r = "*** ". chomp_(`date`) . " ***\n"; my $initdir = "/etc/init.d"; - my ($load,$mail,$email,$smtp,); + my ($load,$mail,$email,$smtp); $load = 3; begin: -- cgit v1.2.1