summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-10 00:54:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-10 00:54:27 +0000
commit3567c50a33be996d7a3f4fd6c622622105d55a51 (patch)
tree525589a2426f64fc2d1b9e8fe00b58c31bced634 /perl-install/standalone/logdrake
parent24267eb313f4272a92e0909ca47a831f7ce047c0 (diff)
downloaddrakx-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-xperl-install/standalone/logdrake8
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: