prefork-interp: change API

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/scripts/Proc/Prefork/Interp.pm b/scripts/Proc/Prefork/Interp.pm
index ab29ebc0fa7f631397a1e6ad3e359503f20b661f..fbe5dbb016791cc6a3c849ebb2537f699c77a751 100644 (file)
--- a/scripts/Proc/Prefork/Interp.pm
+++ b/scripts/Proc/Prefork/Interp.pm
@@ -2,8 +2,10 @@
 package Proc::Prefork::Interp;
 require Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(initialisation_complete);
-our @EXPORT_OK = qw(@autoreload_extra_files);
+our @EXPORT = qw(
+                 prefork_initialisation_complete 
+                 prefork_autoreload_also_check
+              );
 
 use strict;
 
@@ -25,6 +27,10 @@ our $startup_mtime;
 
 our @autoreload_extra_files = ();
 
+sub prefork_autoreload_also_check {
+  push @autoreload_extra_files, @_;
+}
+
 sub fail_log ($) {
   my ($m) = @_;
   if ($fail_log) {
@@ -184,7 +190,7 @@ sub autoreload_check ($) {
   }
 }
 
-sub initialisation_complete {
+sub prefork_initialisation_complete {
   my %opts = @_;
 
   # if env var not set, we're not running under prefork-interp

diff --git a/scripts/prefork-interp-test b/scripts/prefork-interp-test
index c25bd07361c78b69df9c2ab0b0d9c49728d42e5f..daa43ea9d43f5145b6431f4003c55746ff65a444 100755 (executable)
--- a/scripts/prefork-interp-test
+++ b/scripts/prefork-interp-test
@@ -15,7 +15,7 @@ sub prwhen ($) {
 
 prwhen('BEGIN');
 
-initialisation_complete();
+prefork_initialisation_complete();
 
 prwhen('AFTER');