swaggboi/PostText
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix some utf8 and xml encoding stuff

Browse source
This commit is contained in:
swagg boi 2023-04-25 18:09:51 -04:00
parent 4554ed2e74
commit 419c61ed7f
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/PostText/Markdown.pm
View file

@ -12,11 +12,13 @@ package PostText::Markdown;
use v5.36;
use Digest::MD5 qw(md5_hex);
use Encode qw(encode_utf8);
use vars qw($VERSION);
$VERSION = '1.0.1';
use Exporter qw{import};
our @EXPORT = qw{Markdown};
# Tue 14 Dec 2004
## Disabled; causes problems under Perl 5.6.1:
@ -188,7 +190,7 @@ sub _HashHTMLBlocks {
(?=\n+|\Z) # followed by a newline or end of document
)
}{
my $key = md5_hex($1);
my $key = md5_hex(encode_utf8($1));
$g_html_blocks{$key} = $1;
"\n\n" . $key . "\n\n";
}egmx;
@ -208,7 +210,7 @@ sub _HashHTMLBlocks {
(?=\n+|\Z) # followed by a newline or end of document
)
}{
my $key = md5_hex($1);
my $key = md5_hex(encode_utf8($1));
$g_html_blocks{$key} = $1;
"\n\n" . $key . "\n\n";
}egmx;
@ -230,7 +232,7 @@ sub _HashHTMLBlocks {
(?=\n{2,}|\Z) # followed by a blank line or end of document
)
}{
my $key = md5_hex($1);
my $key = md5_hex(encode_utf8($1));
$g_html_blocks{$key} = $1;
"\n\n" . $key . "\n\n";
}egx;
@ -253,7 +255,7 @@ sub _HashHTMLBlocks {
(?=\n{2,}|\Z) # followed by a blank line or end of document
)
}{
my $key = md5_hex($1);
my $key = md5_hex(encode_utf8($1));
$g_html_blocks{$key} = $1;
"\n\n" . $key . "\n\n";
}egx;
@ -846,7 +848,7 @@ sub _EncodeCode {
# Encode all ampersands; HTML entities are not
# entities within a Markdown code span.
s/&/&/g;
#s/&/&/g;
# Encode $'s, but only if we're running under Blosxom.
# (Blosxom interpolates Perl variables in article bodies.)