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

diff --git a/bugdiff b/bugdiff
index 59daac7..b96377c 100755
--- a/bugdiff
+++ b/bugdiff
@@ -1,11 +1,13 @@
 #!/usr/bin/perl
-# vim: ts=4 sw=4 nowrap
+# vim: ts=8 sw=8 nowrap
 
 # Compare two buglist status-files
 
 use Getopt::Std;
-require scanlib;
-require bugcfg;
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;
 use strict;
 use warnings;
 
@@ -41,7 +43,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 +51,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 +68,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 +79,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 +113,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 +122,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++;
 		}
 	}