lxr-commits

[Dave B. <bro...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR/Lang
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17432/lib/LXR/Lang

Modified Files:
	Generic.pm 
Log Message:
we need to do untainting here too

Index: Generic.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Lang/Generic.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Generic.pm	29 Jul 2002 00:58:42 -0000	1.12
+++ Generic.pm	15 Jul 2004 20:28:44 -0000	1.13
@@ -60,8 +60,10 @@
 	
 	local($/) = undef;
 	
+	my $config_contents = <CONF>;
+	$config_contents =~ /(.*)/s ; $config_contents = $1; #untaint it
 	$generic_config = eval ("\n#line 1 \"generic.conf\"\n".
-							<CONF>);
+							$config_contents);
 	die ($@) if $@;
 	close CONF;