X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FConf.pm;h=fb8d13baeb7a1c60305c5167fdb0a467c112931b;hp=615fdcb7221f1d87e05e088b51d767f89edc2a94;hb=03fbdb67704c8b1afa696b1d7ff98fc005c05af4;hpb=4308bf79cf9f31b6ec471788c34cde9b92a3c29b diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index 615fdcb72..fb8d13bae 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -127,15 +127,15 @@ sub set { $value = $1; unless ( $self->config($file) eq $value ) { warn "[FS::Conf] SET $file\n" if $DEBUG; - warn "$dir" if is_tainted($dir); - warn "$dir" if is_tainted($file); +# warn "$dir" if is_tainted($dir); +# warn "$dir" if is_tainted($file); my $fh = new IO::File ">$dir/$file" or return; print $fh "$value\n"; } } -sub is_tainted { - return ! eval { join('',@_), kill 0; 1; }; - } +#sub is_tainted { +# return ! eval { join('',@_), kill 0; 1; }; +# } =item delete