aboutsummaryrefslogtreecommitdiff
path: root/IkiWiki/Setup/Automator.pm
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-01-18 14:52:49 -0500
committerJoey Hess <joey@gnu.kitenet.net>2009-01-18 14:52:49 -0500
commit639f464cb3c703697db2a8887ab32d7a8233508f (patch)
tree4686c8539d5a81ff8be47866a979b4f2a0044ffb /IkiWiki/Setup/Automator.pm
parent1802503af1816106ba15d1101081e72c36eeb8bc (diff)
downloadikiwiki-639f464cb3c703697db2a8887ab32d7a8233508f.tar
ikiwiki-639f464cb3c703697db2a8887ab32d7a8233508f.tar.gz
Avoid feeding decoded unicode to Term::ReadLine
That resulted in double encoded display when using perl's stub readline module. Apparently that module unconditionally upgrades text to utf8, in a quite braindead way. (Term::ReadLine::Gnu::Perl worked ok.)
Diffstat (limited to 'IkiWiki/Setup/Automator.pm')
-rw-r--r--IkiWiki/Setup/Automator.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/IkiWiki/Setup/Automator.pm b/IkiWiki/Setup/Automator.pm
index b7798fcec..42caf3039 100644
--- a/IkiWiki/Setup/Automator.pm
+++ b/IkiWiki/Setup/Automator.pm
@@ -9,12 +9,13 @@ use IkiWiki;
use IkiWiki::UserInfo;
use Term::ReadLine;
use File::Path;
+use Encode;
sub ask ($$) {
my ($question, $default)=@_;
my $r=Term::ReadLine->new("ikiwiki");
- $r->readline($question." ", $default);
+ $r->readline(encode_utf8($question)." ", $default);
}
sub prettydir ($) {