From a13dbc72f9759129746ea8fcdf7972f09c34b272 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 16 May 2006 18:51:01 +0000
Subject: [PATCH] added some error logging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4313 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../OpenSRF/Transport/SlimJabber/MessageWrapper.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/MessageWrapper.pm b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/MessageWrapper.pm
index b792721346..b337dff725 100644
--- a/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/MessageWrapper.pm
+++ b/OpenSRF/src/perlmods/OpenSRF/Transport/SlimJabber/MessageWrapper.pm
@@ -1,5 +1,7 @@
 package OpenSRF::Transport::SlimJabber::MessageWrapper;
 use XML::LibXML;
+use OpenSRF::EX qw/:try/;
+use OpenSRF::Utils::Logger qw/$logger/;
 
 sub new {
 	my $class = shift;
@@ -9,7 +11,17 @@ sub new {
 
 	my ($doc, $msg);
 	if ($xml) {
-		$doc = XML::LibXML->new->parse_string($xml);
+		my $err;
+
+		try {
+			$doc = XML::LibXML->new->parse_string($xml);
+		} catch Error with {
+			$err = shift; 
+			warn "MessageWrapper received bad XML : error = $err\nXML = $xml\n";
+			$logger->error("MessageWrapper received bad XML : error = $err : XML = $xml");
+		};
+		throw $err if $err;
+
 		$msg = $doc->documentElement;
 	} else {
 		$doc = XML::LibXML::Document->createDocument;
-- 
2.43.2