--- modules/damieng/clean_xml/post_xml.pm	2015/04/27 18:04:40	1.2
+++ modules/damieng/clean_xml/post_xml.pm	2015/05/22 19:50:46	1.4
@@ -838,7 +838,7 @@ sub fix_fonts {
         $replacement = $doc->createElement('span');
         my $css = '';
         if (defined $color) {
-          $color =~ s/^x//;
+          $color =~ s/^x/#/;
           $properties{'color'} = $color;
         }
         if (defined $size) {
@@ -2516,6 +2516,7 @@ sub trim {
 ##
 sub string_in_array {
   my ($array, $value) = @_;
+  # NOTE: would it be faster to use "any { $value eq $_ } @{$array}" from List::Util ?
   foreach my $v (@{$array}) {
     if ($v eq $value) {
       return 1;