Add non-free-firmware to the valid sections

[bugscan.git] / bugscan

diff --git a/bugscan b/bugscan
index e4cdfd3468a57b088f31cf2430e4edabfb8948db..555eb4c6ef6232d3c542ecbe12e45b648e408940 100755 (executable)
--- a/bugscan
+++ b/bugscan
@@ -1,9 +1,12 @@
 #! /usr/bin/perl
 
 #! /usr/bin/perl
 

-require bugcfg;
-require scanlib;
+use warnings;

 use strict;
 use strict;

-# use warnings;
+
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;

 
 # Main part
 
 
 # Main part
 


@@ -30,7 +33,7 @@ for my $p (keys %scanlib::packagelist) {
        }
        print "package\n";
        print $p, "\n";
        }
        print "package\n";
        print $p, "\n";

-       print $section, "\n";
+       print $section, "\n" if defined $section;

        print $scanlib::maintainer{$package}, "\n";
        print "\n";
 }
        print $scanlib::maintainer{$package}, "\n";
        print "\n";
 }