[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Oct  7 11:40:24 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates
In directory dev.open-bio.org:/tmp/cvs-serv10517/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates

Modified Files:
	service-base.tt 
Log Message:
bug fix to fix warning when testing soapless service and the debug log setting.
moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates service-base.tt,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/service-base.tt,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/service-base.tt	2009/08/27 19:37:37	1.4
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/service-base.tt	2009/10/07 15:40:24	1.5
@@ -200,7 +200,9 @@
 	if ($LOG->is_debug) {
 	    my $soap_output = $self->finish_output ($out_package);
 	    $LOG->debug ("Output raw data (first 1000 characters): " .
-			 substr ($soap_output->{_value}->[0], 0, 1000));
+			 substr ($soap_output->{_value}->[0], 0, 1000)) if ref($soap_output) =~ m|^HASH|;
+	   $LOG->debug ("Output raw data (first 1000 characters): " .
+             substr ($soap_output, 0, 1000)) unless ref($soap_output) =~ m|^HASH|;
 	    Log::Log4perl::NDC->pop();
 	    return $soap_output;
 	} else {