prefork-interp: ship?

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

diff --git a/scripts/prefork-interp-test b/scripts/prefork-interp-test
new file mode 100644 (file)
index 0000000..c789410
--- /dev/null
+++ b/scripts/prefork-interp-test
@@ -0,0 +1,29 @@
+#!/usr/bin/prefork-interp perl
+# -*- perl -*-
+
+use strict;
+BEGIN { unshift @INC, './perl' }
+use Proc::Prefork::Interp;
+
+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();
+
+prwhen('AFTER');
+
+while (<STDIN>) {
+  last unless m{\S};
+  $_ = uc $_;
+  print or die $!;
+  flush STDOUT or die $!;
+  print STDERR length, "\n";
+}