--- a/lib/scripts/feeder.pl Wed Jan 19 21:01:37 2011 +0100
+++ b/lib/scripts/feeder.pl Wed Jan 19 21:45:50 2011 +0100
@@ -25,7 +25,7 @@
$emitpid && (print $$, "\n");
if ($head) {
- utf8::encode($head);
+ utf8::upgrade($head);
$head =~ s/([\x80-\xff])/\\${\(ord($1))}/g;
print $head, "\n";
}