X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugscan;h=69b42e31c91c6c3dddf1ac8a7f4013952a3d8e48;hp=2bc7b4dbf141c351be0a5b76acb914ddd68be4ba;hb=c254a0d0c6ce35fab30d43d9e4e7e3015e250013;hpb=f75e34fa9be4f762c2b3844622a753237bc89365

diff --git a/bugscan b/bugscan
index 2bc7b4d..69b42e3 100755
--- a/bugscan
+++ b/bugscan
@@ -24,12 +24,22 @@ for my $p (keys %scanlib::packagelist) {
 	} else {
 	    $section = $scanlib::debbugssection{$p};
 	}
-	print "$p $section $scanlib::maintainer{$p}\n";
-	for my $b (@{$scanlib::packagelist{$p}}) {
-		print "$scanlib::bugs{$b}\n";
+	print "package\n";
+	print $p, "\n";
+	print $section, "\n";
+	print $scanlib::maintainer{$p}, "\n";
+	print "\n";
+}
+
+for my $b (keys %scanlib::bugs) {
+	print "bug\n";
+	for my $key (keys %{$scanlib::bugs{$b}}) {
+		print $key, "=", $scanlib::bugs{$b}->{$key}, "\n";
 	}
 	print "\n";
 }
 
+print "end\n";
+
 exit 0;