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 2111751185a905a84b5548832cd2d22e4e9134d8..2db267e3aefe5327ea2d934a64fd54a327a5ce13 100755 (executable)
--- a/perl/prefork-interp-test
+++ b/perl/prefork-interp-test
@@ -1,20 +1,29 @@
 #!/usr/bin/prefork-interp perl
+# -*- perl -*-
 
 use strict;
-BEGIN { unshift @INC, '.' }
-use Proc::Prefork;
+BEGIN { unshift @INC, './pm' }
+use Proc::Prefork::Interp;
 
-print STDERR "BEGIN - STDERR - @ARGV\n" and flush STDERR or die $!;
-print STDOUT "BEGIN - STDOUT - @ARGV\n" and flush STDOUT or die $!;
+sub prwhen ($) {
+  my ($when) = @_;
+  my @env = sort keys %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 $!;
+}
+
+prwhen('BEGIN');
 
 initialisation_complete();
 
-print STDERR "AFTER - STDERR - @ARGV\n" and flush STDERR or die $!;
-print STDOUT "AFTER - STDOUT - @ARGV\n" and flush STDOUT or die $!;
+prwhen('AFTER');
 
 while (<STDIN>) {
   last unless m{\S};
   $_ = uc $_;
   print or die $!;
   flush STDOUT or die $!;
+  print STDERR length, "\n";
 }