Only stop service in windows when error not XML PARSER problems. Gitlab: #518

This commit is contained in:
m-lopez-f 2017-03-14 12:45:50 +01:00
parent 36fda7a23d
commit 4dce98e2d2
1 changed files with 2 additions and 2 deletions

View File

@ -173,8 +173,8 @@ 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'}));
callback_stop() if ($^O eq 'MSWin32' && defined($Config{'win32_service'}) && @_ !~ m/XML\/Parser/);
foreach my $error_line (@_) {
# Trap the XML error and exit without nasty messages
if ($error_line =~ m/XML\/Parser/) {