X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FXMLRPC.pm;h=fb0e5ac74ada7a7a207bd15193c3923637611dc3;hb=ea34c834e4d9915a97730113d78b1b43ccd7684d;hp=84f3e4141f60dcccfa32fa38faa0b8da45065062;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git

diff --git a/FS/FS/XMLRPC.pm b/FS/FS/XMLRPC.pm
index 84f3e4141..fb0e5ac74 100644
--- a/FS/FS/XMLRPC.pm
+++ b/FS/FS/XMLRPC.pm
@@ -11,9 +11,11 @@ use FS::Conf;
 use FS::Record;
 use FS::cust_main;
 
+use Data::Dumper;
+
 @ISA = qw( );
 
-$DEBUG = 1;
+$DEBUG = 0;
 
 =head1 NAME
 
@@ -84,7 +86,6 @@ sub _serve { #Subroutine, not method
 
   my ($method_name, $params) = (shift, shift);
 
-  use Data::Dumper;
 
   #die 'Called _serve without parameters' unless ref($params) eq 'ARRAY';
   $params = [] unless (ref($params) eq 'ARRAY');
@@ -130,7 +131,7 @@ sub _serve { #Subroutine, not method
 
     }
 
-    warn Dumper(@result);
+    warn Dumper(@result) if $DEBUG;
 
     if (grep { UNIVERSAL::can($_, 'hashref') ? 0 : 1 } @result) {
       #warn "FS::XMLRPC: One or more objects returned from '${fssub}' doesn't " .