X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=PciIds%2FConfig.pm;h=49f5599aad29c8b2e9d6887d4553dc33f0a10247;hb=e7d7dbef0c5a2bdd5dae02232c9231f532d4c4e8;hp=8d7a98affe2f76f952854a284632d111fac1eab6;hpb=94781b45e2337c21ca1d8ab9ff5f76c8899cf5aa;p=pciids.git diff --git a/PciIds/Config.pm b/PciIds/Config.pm index 8d7a98a..49f5599 100644 --- a/PciIds/Config.pm +++ b/PciIds/Config.pm @@ -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;