diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-10 00:54:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-10 00:54:27 +0000 |
| commit | 3567c50a33be996d7a3f4fd6c622622105d55a51 (patch) | |
| tree | 525589a2426f64fc2d1b9e8fe00b58c31bced634 /perl-install/standalone/logdrake | |
| parent | 24267eb313f4272a92e0909ca47a831f7ce047c0 (diff) | |
| download | drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar.gz drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar.bz2 drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.tar.xz drakx-3567c50a33be996d7a3f4fd6c622622105d55a51.zip | |
minimal perl_checker fixes to have only warnings
Diffstat (limited to 'perl-install/standalone/logdrake')
| -rwxr-xr-x | perl-install/standalone/logdrake | 8 |
1 files changed, 4 insertions, 4 deletions
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: |