aboutsummaryrefslogtreecommitdiffstats
path: root/ulri
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2011-05-09 21:34:48 +0000
committerThierry Vignaud <tv@mageia.org>2011-05-09 21:34:48 +0000
commitd5f7747d50921224758abfb6e0636158ca6ccf22 (patch)
tree2f3aaceb892ea3b8be70ac93a9d49ea365c7e69b /ulri
parentf34b3c7963abe563863b926db4fbf7a6013e6bb6 (diff)
downloadiurt-d5f7747d50921224758abfb6e0636158ca6ccf22.tar
iurt-d5f7747d50921224758abfb6e0636158ca6ccf22.tar.gz
iurt-d5f7747d50921224758abfb6e0636158ca6ccf22.tar.bz2
iurt-d5f7747d50921224758abfb6e0636158ca6ccf22.tar.xz
iurt-d5f7747d50921224758abfb6e0636158ca6ccf22.zip
minor perl_checker cleanups
Diffstat (limited to 'ulri')
-rwxr-xr-xulri6
1 files changed, 3 insertions, 3 deletions
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.