package PciIds::Config;
use strict;
use warnings;
-use Startup;
+use PciIds::Startup;
use base 'Exporter';
our @EXPORT = qw(&checkConf &defConf %config &confList);
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;