scripts/prefork-interp-test

   1 #!/usr/bin/prefork-interp -U,perl,-w
   2 # -*- perl -*-
   3
   4 # Copyright 2022 Ian Jackson and contributors to chiark-utils
   5 # SPDX-License-Identifier: GPL-3.0-or-later
   6 # There is NO WARRANTY.
   7
   8 use strict;
   9 use Proc::Prefork::Interp;
  10
  11 sub prwhen ($) {
  12   my ($when) = @_;
  13   my @env = sort keys %ENV;
  14   print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env\n"
  15     and flush STDERR or die $!;
  16   print STDOUT "$when - STDOUT\n"
  17     and flush STDOUT or die $!;
  18 }
  19
  20 prwhen('BEGIN');
  21
  22 prefork_initialisation_complete();
  23
  24 prwhen('AFTER');
  25
  26 while (<STDIN>) {
  27   last unless m{\S};
  28   $_ = uc $_;
  29   print or die $!;
  30   flush STDOUT or die $!;
  31   print STDERR length, "\n";
  32 }