summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-10-01 14:44:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-10-01 14:44:23 +0000
commita857623081234fa17d9f6447c995f4635b5f7672 (patch)
treed5527a07fd5f3465f4de34cfee0d871eac2dba15 /perl-install/standalone/logdrake
parent2bcf257104b6572bf0b940b1f06970588f8a1bad (diff)
downloaddrakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar
drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar.gz
drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar.bz2
drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.tar.xz
drakx-backup-do-not-use-a857623081234fa17d9f6447c995f4635b5f7672.zip
perl_checker
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 f97766b65..fd38b9614 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -196,7 +196,7 @@ gtkadd($my_win->{window},
$::Wizard_no_cancel = 1;
$::WizardWindow->destroy if defined $::WizardWindow;
undef $::WizardWindow;
- } elsif ($err) { print "CRITICAL: \"$err\" =>\n" }
+ } elsif ($err) { print qq(CRITICAL: "$err" =>\n) }
})),
gtksignal_connect(Gtk2::Button->new(N("Save")), clicked => \&save),
gtksignal_connect(Gtk2::Button->new($::isEmbedded ? N("Cancel") : N("Quit")), clicked => \&quit)
@@ -409,7 +409,7 @@ my $initdir = "/etc/init.d";
webmin => N("Webmin Service"),
xinetd => N("Xinetd Service")
};
- my @installed_d = ();
+ my @installed_d;
foreach my $serv (keys %$service) {
-e "$initdir/$serv" && push @installed_d, $serv;
}
@@ -422,7 +422,7 @@ my $initdir = "/etc/init.d";
$cron .= "#- check services\n";
foreach (keys %services_to_check) {
next unless $services_to_check{$_};
- $cron .= "\$r .= \"Service $_ ($service->{$_} is not running)\\n\" unless -e \"/var/lock/subsys/$_\";\n";
+ $cron .= qq(\$r .= "Service $_ ($service->{$_} is not running)\\n" unless -e "/var/lock/subsys/$_";\n);
}
step_load:
@@ -451,7 +451,7 @@ EOF
{ label => "" },
{ label => "Email", val => \$email },
]) or goto step_load;
- if ($email !~ /[\w.-]*@[\w.-]/) {
+ if ($email !~ /[\w.-]*\@[\w.-]/) {
err_dialog(N("Wrong email"), N("\"%s\" is not a valid email!"));
goto step_output;
}