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