X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=bugscan;h=555eb4c6ef6232d3c542ecbe12e45b648e408940;hb=ae54d20caf7246c5d844357a33c302f623cba394;hp=958483ea22ff0624091d974932268392d495299e;hpb=fb700c4848ebf0b5fefddd67e0d92ef591f48f63;p=bugscan.git

diff --git a/bugscan b/bugscan
index 958483e..555eb4c 100755
--- a/bugscan
+++ b/bugscan
@@ -1,9 +1,12 @@
 #! /usr/bin/perl
 
-require bugcfg;
-require scanlib;
+use warnings;
 use strict;
-# use warnings;
+
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;
 
 # Main part
 
@@ -17,6 +20,8 @@ scanlib::readpseudopackages();
 scanlib::readmaintainers();
 scanlib::scanspool();
 
+binmode(STDOUT,':encoding(UTF-8)');
+
 for my $p (keys %scanlib::packagelist) {
 	my $section;
 	my $package = $p;
@@ -28,7 +33,7 @@ for my $p (keys %scanlib::packagelist) {
 	}
 	print "package\n";
 	print $p, "\n";
-	print $section, "\n";
+	print $section, "\n" if defined $section;
 	print $scanlib::maintainer{$package}, "\n";
 	print "\n";
 }