[svn:p5ee] r6446 - p5ee/trunk/App-Context/lib/App/Context

[email protected] Fri, 2 Jun 2006 07:10:13 -0700 (PDT)

Newsgroups	perl.cvs.p5ee
Message-ID	<[email protected]>

Author: spadkins
Date: Fri Jun  2 07:10:12 2006
New Revision: 6446

Modified:
   p5ee/trunk/App-Context/lib/App/Context/ClusterNode.pm

Log:
async event error messages have newlines deleted

Modified: p5ee/trunk/App-Context/lib/App/Context/ClusterNode.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context/ClusterNode.pm	(original)
+++ p5ee/trunk/App-Context/lib/App/Context/ClusterNode.pm	Fri Jun  2 07:10:12 2006
@@ -170,6 +170,7 @@
     };
     if ($@) {
         $results = $@;
+        $results =~ s/\s*\n\s*/ /gs;  # we can't have multi-line result text
     }
     my $results_txt = $self->{rpc_serializer}->serialize($results);
     my $msg = "ASYNC-EVENT-RESULTS:$event->{event_token}:$results_txt";