summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
bfdd522)
PLP::ReadFile() is declared before open mode can be set to :utf8, so may
cause corruption if not converted back to unicode.
print "</pre>\n";
}
else {
print "</pre>\n";
}
else {
- print "<pre>\n", EscapeHTML(ReadFile($source)), "</pre>\n";
+ require Encode;
+ print "<pre>\n";
+ print EscapeHTML(Encode::decode_utf8(ReadFile($source)));
+ print "</pre>\n";