prefork-interp: fixes

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/perl/prefork-interp-test b/perl/prefork-interp-test
index b1ce858fb72d16b4dda35cf634fface06a443866..6028e5769bfdf8ffbf5e23f27f379cca4466bd75 100755 (executable)
--- a/perl/prefork-interp-test
+++ b/perl/prefork-interp-test
@@ -25,4 +25,5 @@ while (<STDIN>) {
   $_ = uc $_;
   print or die $!;
   flush STDOUT or die $!;
+  print STDERR length, "\n";
 }