diff options
| author | Joey Hess <joey@gnu.kitenet.net> | 2009-01-18 14:52:49 -0500 |
|---|---|---|
| committer | Joey Hess <joey@gnu.kitenet.net> | 2009-01-18 14:52:49 -0500 |
| commit | 639f464cb3c703697db2a8887ab32d7a8233508f (patch) | |
| tree | 4686c8539d5a81ff8be47866a979b4f2a0044ffb /IkiWiki/Setup/Automator.pm | |
| parent | 1802503af1816106ba15d1101081e72c36eeb8bc (diff) | |
| download | ikiwiki-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.pm | 3 |
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 ($) { |