1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
--- a/dsa/checks/dsa-check-packages
+++ b/dsa/checks/dsa-check-packages
_æ_ _æ_ -334,7 +334,7 _æ_ _æ_ for my $form ( _æ_ reportform) {
push _æ_ perfout, sprintf($form->{'perf'}, $num);
next unless ($num > 0);
if ($form->{'listpackages'}) {
- my $list = join(", ", keys %$pkgs);
+ my $list = join(" ", keys %$pkgs);
push _æ_ longout, sprintf($form->{'long'}, $num, $list);
} else {
push _æ_ longout, sprintf($form->{'long'}, $num);
_æ_ _æ_ -344,15 +344,15 _æ_ _æ_ for my $form ( _æ_ reportform) {
};
if (scalar keys %$packages) {
record('WARNING');
- unshift _æ_ shortout, "unk: ".join(", ", keys %$packages);
+ unshift _æ_ shortout, "unk: ".join(" ", keys %$packages);
for my $status (sort {$b cmp $a} keys %$packages) {
my $pkgs = $packages->{$status};
- my $list = join(", ", keys %$pkgs);
+ my $list = join(" ", keys %$pkgs);
unshift _æ_ longout, "Unknown package status $status: $list";
};
}
-my $shortout = $EXITCODE.": ".join(", ", _æ_ shortout);
+my $shortout = $EXITCODE.": ".join(" ", _æ_ shortout);
my $longout = join("\n", _æ_ longout);
my $perfout = "|".join(" ", _æ_ perfout);
|