From d5f7747d50921224758abfb6e0636158ca6ccf22 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 May 2011 21:34:48 +0000 Subject: minor perl_checker cleanups --- ulri | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ulri') diff --git a/ulri b/ulri index 85db5fb..ce56a84 100755 --- a/ulri +++ b/ulri @@ -499,7 +499,7 @@ foreach my $prefix (keys %pkg_tree) { } my $to = get_author_email($user) || "Unknown <$config->{admin}>"; - my $cc = undef; + my $cc; my $fpath = "$config->{http_queue}/failure/$path/$prefix"; $fpath =~ tr!/!!s; # Squash double slashes ... $fpath =~ s!/!//!; # ... except for http:// @@ -511,7 +511,7 @@ foreach my $prefix (keys %pkg_tree) { opendir my $DP1, "$fail_dir/$prefix/log/"; foreach my $f1 (readdir $DP1) { - if (! -d "$fail_dir/$prefix/log/$f1" or $f1 =~ m/^\./) { + if (! -d "$fail_dir/$prefix/log/$f1" || $f1 =~ m/^\./) { next; } @@ -684,7 +684,7 @@ foreach my $prefix (sort keys %pkg_tree) { } plog('DEBUG', "Build $pkgs"); - ssh($remote, "\'echo PID=\$\$; exec $cmd $pkgs &>$prefix_dir/log/botcmd.\$(date +%s).\$(hostname -s).log\' > $temp &"); + ssh($remote, "'echo PID=\$\$; exec $cmd $pkgs &>$prefix_dir/log/botcmd.\$(date +%s).\$(hostname -s).log' > $temp &"); # wait 10 seconds or until we have the log file # plus 20 seconds if it timeouts. -- cgit v1.2.1