summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-18 14:40:04 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-18 14:40:04 +0000
commit1049bbf7ad28689cad9d572f28139d35fd4a28cf (patch)
tree7875d589f0b1c34bb070e4ce0754db2eb717d716 /perl-install/standalone/logdrake
parentf4114e035ae23d51b55dc040811b58db1e6cb1ad (diff)
downloaddrakx-backup-do-not-use-1049bbf7ad28689cad9d572f28139d35fd4a28cf.tar
drakx-backup-do-not-use-1049bbf7ad28689cad9d572f28139d35fd4a28cf.tar.gz
drakx-backup-do-not-use-1049bbf7ad28689cad9d572f28139d35fd4a28cf.tar.bz2
drakx-backup-do-not-use-1049bbf7ad28689cad9d572f28139d35fd4a28cf.tar.xz
drakx-backup-do-not-use-1049bbf7ad28689cad9d572f28139d35fd4a28cf.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 709eda546..448d4c978 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -166,7 +166,7 @@ gtkadd($my_win->{window},
),
gtkpack_(new Gtk2::HBox(0,0),
1, gtkadd(gtkset_border_width(new Gtk2::Frame(N("Choose file")),2),
- gtkpack (gtkset_border_width(Gtk2::VBox->new(0,0),0),
+ gtkpack(gtkset_border_width(Gtk2::VBox->new(0,0),0),
map { $toggle{$_} = gtksignal_connect(new Gtk2::CheckButton($files{$_}{desc}),
clicked => sub {
$refcount_search++;
@@ -410,12 +410,12 @@ my $initdir = "/etc/init.d";
};
my @installed_d;
foreach my $serv (keys %$service) {
- -e "$initdir/$serv" && push (@installed_d, $serv);
+ -e "$initdir/$serv" && push @installed_d, $serv;
}
$in->ask_from(N("service setting"),
N("You will receive an alert if one of the selected services is no longer running"),
- [ map { { label => $_, val => \${ $_ }, type => "bool", text => "$service->{ $_ }" } } @installed_d
+ [ map { { label => $_, val => \${ $_ }, type => "bool", text => $service->{$_} } } @installed_d
]) or goto begin;
$cron .= "#- check services\n";