Easier wide_to_html debugging from ged2site

nigelhorne · Aug 19, 2024 · 95f8a42 · 95f8a42
1 parent 46e9638
commit 95f8a42
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/gedcom b/gedcom
@@ -13379,7 +13379,6 @@ sub wide_to_html
 
 	# print STDERR __LINE__, ": ($string)\n";
 	if($string =~ /[^[:ascii:]]/) {
-		complain("TODO: wide_to_html($string)");
 		$string = HTML::Entities::encode($string);
 		if($string =~ /[^[:ascii:]]/) {
 			print STDERR (unpack 'H*', $string);
@@ -13389,6 +13388,9 @@ sub wide_to_html
 			while((my @call_details = caller($i++))) {
 				print STDERR "\t", colored($call_details[2] . ' of ' . $call_details[1], 'red'), "\n";
 			}
+			complain("TODO: wide_to_html($string)");
+			warn "TODO: wide_to_html($string)";
+			$string =~ s/[^[:ascii:]]/XXXXX/g;
 			die "BUG: wide_to_html($string)";
 		}
 	}