projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Emit bad XML fragment if appendWellBalancedChunk() fails.
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Record.pm
diff --git
a/lib/ZOOM/IRSpy/Record.pm
b/lib/ZOOM/IRSpy/Record.pm
index
3a5c5f5
..
7444d70
100644
(file)
--- a/
lib/ZOOM/IRSpy/Record.pm
+++ b/
lib/ZOOM/IRSpy/Record.pm
@@
-1,4
+1,4
@@
-# $Id: Record.pm,v 1.27 2007-08-02 11:28:38 mike Exp $
+# $Id: Record.pm,v 1.28 2007-12-12 08:49:58 mike Exp $
package ZOOM::IRSpy::Record;
### I don't think there's any reason for this to be separate from
package ZOOM::IRSpy::Record;
### I don't think there's any reason for this to be separate from
@@
-147,7
+147,12
@@
sub _half_decent_appendWellBalancedChunk {
if (1) {
$frag =~ s,>, xmlns:irspy="$ZOOM::IRSpy::Utils::IRSPY_NS">,;
if (1) {
$frag =~ s,>, xmlns:irspy="$ZOOM::IRSpy::Utils::IRSPY_NS">,;
- $node->appendWellBalancedChunk($frag);
+ eval {
+ $node->appendWellBalancedChunk($frag);
+ }; if ($@) {
+ print STDERR "died while trying to appendWellBalancedChunk(), probably due to bad XML:\n$frag";
+ die $@;
+ }
return;
}
return;
}