potentially more robust utf8 handling (cf. 3e4bb6e7c3ca);

--- 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";
 }