projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4416d6c
)
Quiet debug output.
author
khoff
<khoff>
Fri, 11 May 2007 18:08:10 +0000
(18:08 +0000)
committer
khoff
<khoff>
Fri, 11 May 2007 18:08:10 +0000
(18:08 +0000)
FS/FS/XMLRPC.pm
patch
|
blob
|
history
diff --git
a/FS/FS/XMLRPC.pm
b/FS/FS/XMLRPC.pm
index
84f3e41
..
fb0e5ac
100644
(file)
--- 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 FS::Record;
use FS::cust_main;
+use Data::Dumper;
+
@ISA = qw( );
@ISA = qw( );
-$DEBUG =
1
;
+$DEBUG =
0
;
=head1 NAME
=head1 NAME
@@
-84,7
+86,6
@@
sub _serve { #Subroutine, not method
my ($method_name, $params) = (shift, shift);
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');
#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 " .
if (grep { UNIVERSAL::can($_, 'hashref') ? 0 : 1 } @result) {
#warn "FS::XMLRPC: One or more objects returned from '${fssub}' doesn't " .