From 994711d18446db46e8d1c9a5bd3a84c91827a146 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 19:09:35 +0100
Subject: [PATCH] prefork-interp: wip testing

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 cprogs/prefork-interp-test | 20 ++++++++++++++++++++
 perl/Prefork.pm            |  3 +++
 2 files changed, 23 insertions(+)
 create mode 100644 cprogs/prefork-interp-test

diff --git a/cprogs/prefork-interp-test b/cprogs/prefork-interp-test
new file mode 100644
index 0000000..779190c
--- /dev/null
+++ b/cprogs/prefork-interp-test
@@ -0,0 +1,20 @@
+#!/usr/bin/prefork-interp perl
+
+use strict;
+BEGIN { unshift @INC, '.' }
+use Proc::Prefork;
+
+print STDERR "BEGIN - STDERR\n" and flush STDERR or die $!;
+print STDOUT "BEGIN - STDOUT\n" and flush STDOUT or die $!;
+
+initialisation_complete();
+
+print STDERR "AFTER - STDERR\n" and flush STDERR or die $!;
+print STDOUT "AFTER - STDOUT\n" and flush STDOUT or die $!;
+
+while (<STDIN>) {
+  last unless m{\S};
+  $_ = uc $_;
+  print or die $!;
+  flush STDOUT or die $!;
+}
diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index fa986c1..4798563 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -1,5 +1,8 @@
 
 package Proc::Prefork;
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(initialisation_complete);
 
 use Carp;
 use POSIX;
-- 
2.30.2