Merge branch 'master' of git+ssh://git.donarmstrong.com/srv/git/bugscan

diff --git a/bugscan b/bugscan
index 958483ea22ff0624091d974932268392d495299e..e4cdfd3468a57b088f31cf2430e4edabfb8948db 100755 (executable)
--- a/bugscan
+++ b/bugscan
@@ -17,6 +17,8 @@ scanlib::readpseudopackages();
 scanlib::readmaintainers();
 scanlib::scanspool();
 
+binmode(STDOUT,':encoding(UTF-8)');
+
 for my $p (keys %scanlib::packagelist) {
        my $section;
        my $package = $p;

diff --git a/scanlib.pm b/scanlib.pm
index 60e4cf47837d454823a022f86de99c08b47f2962..2982284a5d019a0ea3b2b73cb5ccb23974347a53 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -200,7 +200,7 @@ sub scanspooldir {
                if (defined($section{$bug->{'package'}}) && $section{$bug->{'package'}} eq 'pseudo') {
                        # versioning information makes no sense for pseudo packages,
                        # just use the tags
-                       for my $dist qw(oldstable stable testing unstable experimental) {
+                       for my $dist (qw(oldstable stable testing unstable experimental)) {
                                $bi->{$dist} = $disttags{$dist};
                        }
                        next if (length($bug->{'done'}));
@@ -208,7 +208,7 @@ sub scanspooldir {
                        my $affects_any = 0;
                
                        # only bother to check the versioning status for the distributions indicated by the tags 
-                       for my $dist qw(oldstable stable testing unstable experimental) {
+                       for my $dist (qw(oldstable stable testing unstable experimental)) {
                                local $SIG{__WARN__} = sub {};
 
                                $bi->{$dist} = 0;
@@ -234,7 +234,7 @@ sub scanspooldir {
                        next if !$affects_any;
                }
 
-               for my $keyword qw(pending patch help moreinfo unreproducible security upstream etch-ignore lenny-ignore squeeze-ignore wheezy-ignore) {
+               for my $keyword (qw(pending patch help moreinfo unreproducible security upstream etch-ignore lenny-ignore squeeze-ignore wheezy-ignore)) {
                        $bi->{$keyword} = grep(/^$keyword$/, @tags);
                }
 
@@ -361,7 +361,7 @@ sub get_relinfo {
     my $bi = shift;
 
     my $relinfo = "";
-       for my $dist qw(oldstable stable testing unstable experimental) {
+       for my $dist (qw(oldstable stable testing unstable experimental)) {
            $relinfo .= uc(substr($dist, 0, 1)) if $bi->{$dist};
        }