scripts/prefork-interp-test

   1 #!/usr/bin/prefork-interp -U,perl
   2 # -*- perl -*-
   3
   4 use strict;
   5 use Proc::Prefork::Interp;
   6
   7 sub prwhen ($) {
   8   my ($when) = @_;
   9   my @env = sort keys %ENV;
  10   print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env\n"
  11     and flush STDERR or die $!;
  12   print STDOUT "$when - STDOUT\n"
  13     and flush STDOUT or die $!;
  14 }
  15
  16 prwhen('BEGIN');
  17
  18 initialisation_complete();
  19
  20 prwhen('AFTER');
  21
  22 while (<STDIN>) {
  23   last unless m{\S};
  24   $_ = uc $_;
  25   print or die $!;
  26   flush STDOUT or die $!;
  27   print STDERR length, "\n";
  28 }