lib/scripts/feeder.pl
changeset 61187 ff00ad5dc03a
parent 47868 32c03d45fffe
--- a/lib/scripts/feeder.pl	Wed Sep 16 22:09:01 2015 +0200
+++ b/lib/scripts/feeder.pl	Wed Sep 16 23:48:35 2015 +0200
@@ -19,14 +19,18 @@
 #buffer lines
 $| = 1;
 
+sub emit {
+  my ($text) = @_;
+  if ($text) {
+    utf8::upgrade($text);
+    $text =~ s/([\x80-\xff])/\\${\(ord($1))}/g;
+    print $text, "\n";
+  }
+}
 
 $emitpid && (print $$, "\n");
 
-if ($head) {
-  utf8::upgrade($head);
-  $head =~ s/([\x80-\xff])/\\${\(ord($1))}/g;
-  print $head, "\n";
-}
+emit("$head");
 
 if (!$quit) {
   while (<STDIN>) {
@@ -34,7 +38,7 @@
   }
 }
 
-$tail && (print "$tail", "\n");
+emit("$tail");
 
 
 # wait forever