title => "$source source code",
version => 'v1.0',
description => !$source ? 'Index of source files for this site.' : [
- "Source code of local $source file,",
+ "Source code of the $source file at this site,",
"with syntax highlighted and references linked."
],
keywords => [qw'
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";
}
print "\n";