From: ivan <ivan>
Date: Thu, 25 Oct 2001 08:41:43 +0000 (+0000)
Subject: remove debugging cruft
X-Git-Tag: freeside_1_4_0pre11~263
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=03fbdb67704c8b1afa696b1d7ff98fc005c05af4

remove debugging cruft
---

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