Report portability bug, partway to a fix

[git.ikiwiki.info.git] / IkiWiki.pm

diff --git a/IkiWiki.pm b/IkiWiki.pm
index 7a38c8f89a44fd42d7e61a2871dd2014e4ac3b09..90cb96e5865ba193db122ce42ea7d4cb449bb49f 100644 (file)
--- a/IkiWiki.pm
+++ b/IkiWiki.pm
@@ -1667,11 +1667,10 @@ sub preprocess ($$$;$$) {
                                        my $error=$@;
                                        chomp $error;
                                        eval q{use HTML::Entities};
                                        my $error=$@;
                                        chomp $error;
                                        eval q{use HTML::Entities};

-                                       $error = encode_entities($error);

                                        # Also encode most ASCII punctuation
                                        # as entities so that error messages
                                        # are not interpreted as Markdown etc.
                                        # Also encode most ASCII punctuation
                                        # as entities so that error messages
                                        # are not interpreted as Markdown etc.

-                                       $error = encode_entities($error, '[](){}!#$%*?@^`|~'."\\");
+                                       $error = encode_entities($error, '^-A-Za-z0-9+_,./:;= '."'");

                                        $ret="[[!$command <span class=\"error\">".
                                                gettext("Error").": $error"."</span>]]";
                                }
                                        $ret="[[!$command <span class=\"error\">".
                                                gettext("Error").": $error"."</span>]]";
                                }