diff options
author | ivan <ivan> | 2001-10-25 08:41:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-10-25 08:41:43 +0000 |
commit | 03fbdb67704c8b1afa696b1d7ff98fc005c05af4 (patch) | |
tree | ead86207c84bf88569d01f353ace24090de42941 | |
parent | 4308bf79cf9f31b6ec471788c34cde9b92a3c29b (diff) |
remove debugging cruft
-rw-r--r-- | FS/FS/Conf.pm | 10 |
1 files changed, 5 insertions, 5 deletions
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 |