X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=bugdiff;h=e120dcbcd3d14b019ee12f073261db788133aafd;hb=beb904099ea5c625f027a86b3b758369fbadd86b;hp=59daac7368a1d133d3ee5a61e7123cae411cd86b;hpb=0158a352c3ac17d47e1a6ac6e5306f40cf27911c;p=bugscan.git
diff --git a/bugdiff b/bugdiff
index 59daac7..e120dcb 100755
--- a/bugdiff
+++ b/bugdiff
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# vim: ts=4 sw=4 nowrap
+# vim: ts=8 sw=8 nowrap
# Compare two buglist status-files
@@ -41,7 +41,7 @@ sub closedbugs() {
print "
\n";
for my $p (sort keys %removed) {
print " - " . &scanlib::wwwname($p) . ":\n";
- for $b (sort split(/ /, $removed{$p})) {
+ for $b (sort @{$removed{$p}}) {
print &scanlib::wwwnumber($b) . " ";
}
print "\n";
@@ -49,10 +49,10 @@ sub closedbugs() {
print "
\n";
}
} else {
- print "Closed/downgraded release-critical bugs:\n" if (%removed>0);
+ print "Closed/downgraded release-critical bugs:\n" if (scalar keys %removed>0);
for my $p (sort keys %removed) {
print " $p: ";
- print join(", ", sort split(/ /, $removed{$p}));
+ print join(", ", sort @{$removed{$p}});
print "\n";
}
}
@@ -66,7 +66,7 @@ sub openedbugs() {
print "\n";
for my $p (sort keys %new) {
print " - " . &scanlib::wwwname($p) . ":\n";
- for $b (sort split(/ /, $new{$p})) {
+ for $b (sort @{$new{$p}}) {
print &scanlib::wwwnumber($b) . " ";
}
print "\n";
@@ -77,7 +77,7 @@ sub openedbugs() {
print "Opened/upgraded release-critical bugs:\n" if (%new);
for my $p (sort keys %new) {
print " $p: ";
- print join(", ", sort split(/ /, $new{$p}));
+ print join(", ", sort @{$new{$p}});
print "\n";
}
}
@@ -111,7 +111,7 @@ my $closed=0;
for my $p (keys %oldbugs) {
for $b (@{$oldbugs{$p}}) {
if (!defined($scanlib::packagelist{$p}) || scalar grep { $_ == $b } @{$scanlib::packagelist{$p}} == 0) {
- $removed{$p} .= "$b ";
+ push @{$removed{$p}}, $b;
$closed++;
}
}
@@ -120,8 +120,8 @@ for my $p (keys %oldbugs) {
my $opened=0;
for my $p (keys %scanlib::packagelist) {
for $b (@{$scanlib::packagelist{$p}}) {
- if (not ($oldbugs{$p} =~ m/\b$b\b/)) {
- $new{$p} .= "$b ";
+ if (!defined($oldbugs{$p}) || scalar grep { $_ == $b } @{$oldbugs{$p}} == 0) {
+ push @{$new{$p}}, $b;
$opened++;
}
}