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";