txt2pre: use '—' instead of '—' (to fix feed validation)

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;