bugscan now uses basename

[bugscan.git] / bugscan

diff --git a/bugscan b/bugscan
index 958483ea22ff0624091d974932268392d495299e..e9478f01326375553a9e292ede4119b3aff5d8f4 100755 (executable)
--- 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;