prefork-interp: rename perl module and sort out file locations

[chiark-utils.git] / perl / prefork-interp-test

diff --git a/perl/prefork-interp-test b/perl/prefork-interp-test
index b1ce858fb72d16b4dda35cf634fface06a443866..2db267e3aefe5327ea2d934a64fd54a327a5ce13 100755 (executable)
--- a/perl/prefork-interp-test
+++ b/perl/prefork-interp-test
@@ -2,8 +2,8 @@
 # -*- perl -*-
 
 use strict;
-BEGIN { unshift @INC, '.' }
-use Proc::Prefork;
+BEGIN { unshift @INC, './pm' }
+use Proc::Prefork::Interp;
 
 sub prwhen ($) {
   my ($when) = @_;
@@ -25,4 +25,5 @@ while (<STDIN>) {
   $_ = uc $_;
   print or die $!;
   flush STDOUT or die $!;
+  print STDERR length, "\n";
 }