txt2pre: use '—' instead of '—' (to fix feed validation)
authorAmin Bandali <bandali@gnu.org>
Fri, 22 Oct 2021 03:32:38 +0000 (23:32 -0400)
committerAmin Bandali <bandali@gnu.org>
Fri, 22 Oct 2021 03:32:38 +0000 (23:32 -0400)
txt2pre

diff --git a/txt2pre b/txt2pre
index 5bf8811..49bd164 100644 (file)
--- a/txt2pre
+++ b/txt2pre
@@ -195,7 +195,7 @@ my $txt = do { local $/; <STDIN> };
 
 my $title = html_esc($txt =~ /\A([^\n]+)/);
 $title =~ s/^\s+|\s+$//g;
 
 my $title = html_esc($txt =~ /\A([^\n]+)/);
 $title =~ s/^\s+|\s+$//g;
-$title .= " &mdash; $author" if $title !~ /$author/;
+$title .= " &#8212; $author" if $title !~ /$author/;
 
 my ($upd, $pub, $url) = $txt =~ /(.*)\r?\n(.*)\r?\n(.*)\r?\n?\z/;
 ($upd) = $upd =~ /(?:updated|ویرایش): (.*)/ if $upd;
 
 my ($upd, $pub, $url) = $txt =~ /(.*)\r?\n(.*)\r?\n(.*)\r?\n?\z/;
 ($upd) = $upd =~ /(?:updated|ویرایش): (.*)/ if $upd;