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 226a042ce59b1b20abdf1110243a76cd986b71c0..2db267e3aefe5327ea2d934a64fd54a327a5ce13 100755 (executable)
--- a/perl/prefork-interp-test
+++ b/perl/prefork-interp-test
@@ -2,13 +2,13 @@
 # -*- perl -*-
 
 use strict;
-BEGIN { unshift @INC, '.' }
-use Proc::Prefork;
+BEGIN { unshift @INC, './pm' }
+use Proc::Prefork::Interp;
 
 sub prwhen ($) {
   my ($when) = @_;
   my @env = sort keys %ENV;
-  print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env"
+  print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env\n"
     and flush STDERR or die $!;
   print STDOUT "$when - STDOUT\n"
     and flush STDOUT or die $!;
@@ -25,4 +25,5 @@ while (<STDIN>) {
   $_ = uc $_;
   print or die $!;
   flush STDOUT or die $!;
+  print STDERR length, "\n";
 }