remove debugging cruft

[freeside.git] / FS / FS / Conf.pm

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 615fdcb..fb8d13b 100644 (file)
--- 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