Merge branch 'cherry-pick-ce576441' into 'pandora_6.0'

Not stop pandora_server service on windows when send XML PARSER error in data consumer. Gitlab: #518

See merge request !254
This commit is contained in:
vgilc 2017-03-15 13:51:53 +01:00
commit b7984d8c0d

View File

@ -173,8 +173,6 @@ sub pandora_crash () {
# worried about that. If perl has a more "clean" way to avoid this messages
# will be nice to replace this code, but at this time it's the only way I know
callback_stop() if ($^O eq 'MSWin32' && defined($Config{'win32_service'}));
foreach my $error_line (@_) {
# Trap the XML error and exit without nasty messages
if ($error_line =~ m/XML\/Parser/) {
@ -208,6 +206,8 @@ sub pandora_crash () {
print_message (\%Config, ' [E] Unhandled error in "' . $Config{'servername'} . "\". See more information in logfiles at '/var/log/pandora' \n", 0);
print_message (\%Config, " Error description:\n", 0);
print_message (\%Config, $full_error, 0);
callback_stop() if ($^O eq 'MSWin32' && defined($Config{'win32_service'}));
}
########################################################################################