From a857623081234fa17d9f6447c995f4635b5f7672 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Oct 2003 14:44:23 +0000
Subject: perl_checker

---
 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 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;
     }
-- 
cgit v1.2.1