X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugdiff;h=e120dcbcd3d14b019ee12f073261db788133aafd;hp=59daac7368a1d133d3ee5a61e7123cae411cd86b;hb=c0f4a4d5ce63338390dfd851c4b403769266d0d7;hpb=0158a352c3ac17d47e1a6ac6e5306f40cf27911c

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 "<ul>\n";
 			for my $p (sort keys %removed) {
 				print "  <li><em>" . &scanlib::wwwname($p) . ":</em>\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 "</ul>\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 "<ul>\n";
 			for my $p (sort keys %new) {
 				print "  <li><em>" . &scanlib::wwwname($p) . ":</em>\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++;
 		}
 	}