X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=make-britney-counts;h=955dc9370443c8770f6daa9e7bf8fbeb53fd3fb0;hp=9e5c16550a8dbad7c287c3c53d54d9cd316b9cbb;hb=b6929df21306bcb09f3ac4592d116bcdc97f09b3;hpb=05842ea2a5370c6de688a681cbe68d1f18920b3e

diff --git a/make-britney-counts b/make-britney-counts
index 9e5c165..955dc93 100755
--- a/make-britney-counts
+++ b/make-britney-counts
@@ -4,8 +4,10 @@
 # Generate a report britney can use
 
 use Getopt::Std;
-require scanlib;
-require bugcfg;
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;
 use strict;
 # use warnings;
 
@@ -44,11 +46,11 @@ my %unstablebugs = ();
 while (my ($nr, $bug) = each %scanlib::bugs) {
 	for my $package (split /[,\s]+/, $bug->{'package'}) {
 		$package =~ y/A-Z/a-z/;
-		$package = $` if ($package =~ /[^-+._a-z0-9]/);
+		$package = $` if ($package =~ /[^-+._:a-z0-9]/);
 
 		# this hack is specific to britney counts, and ignores
 		# bugs tagged ignore for the next testing release
-		if (scanlib::check_worry_unstable($bug) and not $bug->{'lenny-ignore'}) {
+		if (scanlib::check_worry_unstable($bug) and not $bug->{$bugcfg::debian_releases->{testing}.'-ignore'}) {
 			push @{$unstablebugs{$package}}, $nr;
 		}
 		if (scanlib::check_worry($bug)) {