Email needs at last one dot after @

[pciids.git] / PciIds / Config.pm

diff --git a/PciIds/Config.pm b/PciIds/Config.pm
index 8d7a98affe2f76f952854a284632d111fac1eab6..49f5599aad29c8b2e9d6887d4553dc33f0a10247 100644 (file)
--- 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;