Better help in debugging XML failures

nigelhorne · Jul 25, 2024 · c57a107 · c57a107
1 parent 2fd5470
commit c57a107
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/ged2site b/ged2site
@@ -14798,6 +14798,12 @@ sub wide_to_xml
 
 	# print STDERR __LINE__, ": ($string)\n";
 	if($string =~ /[^[:ascii:]]/) {
+		my $i = 0;
+		while((my @call_details = caller($i++))) {
+			print STDERR "\t", colored($call_details[2] . ' of ' . $call_details[1], 'red'), "\n";
+		}
+		warn "TODO: wide_to_xml($string)";
+		$string =~ s/[^[:ascii:]]/XXXXX/g;
 		die "BUG: wide_to_xml($string)";
 	}
 	return $string;