Email needs at last one dot after @

[pciids.git] / PciIds / Config.pm

diff --git a/PciIds/Config.pm b/PciIds/Config.pm
index a17968905c3ac1d78392fb5673185594ebaf95e5..49f5599aad29c8b2e9d6887d4553dc33f0a10247 100644 (file)
--- a/PciIds/Config.pm
+++ b/PciIds/Config.pm
@@ -1,7 +1,7 @@
 package PciIds::Config;
 use strict;
 use warnings;
-use Startup;
+use PciIds::Startup;
 use base 'Exporter';
 
 our @EXPORT = qw(&checkConf &defConf %config &confList);
@@ -16,6 +16,7 @@ sub loadConf() {
                my( $name, $val );
                die "Invalid syntax on line $_\n" unless( ( $name, $val ) = /^\s*(.*\S)\s*=\s*(.*\S)\s*$/ );
                $val =~ s/^"(.*)"$/$1/;
+               ( $val ) = ( $val =~ /(.*)/ ); #Untaint the value - config is considered part of the program
                $config{$name} = $val;
        }
        close CONFIG;