prefork-interp: @autoreload_extra_files

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 04b536e22b58d64fda06f8f44b06abdc22bb0627..ab29ebc0fa7f631397a1e6ad3e359503f20b661f 100644 (file)
--- a/scripts/Proc/Prefork/Interp.pm
+++ b/scripts/Proc/Prefork/Interp.pm
@@ -3,6 +3,7 @@ package Proc::Prefork::Interp;
 require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT = qw(initialisation_complete);
+our @EXPORT_OK = qw(@autoreload_extra_files);
 
 use strict;
 
@@ -22,6 +23,8 @@ our $socket_path;
 our $fail_log = 0;
 our $startup_mtime;
 
+our @autoreload_extra_files = ();
+
 sub fail_log ($) {
   my ($m) = @_;
   if ($fail_log) {
@@ -303,6 +306,9 @@ sub initialisation_complete {
        autoreload_check($f);
       }
     }
+    foreach my $f (@autoreload_extra_files) {
+      autoreload_check($f);
+    }
     foreach my $f (@{ %opts{autoreload_extra} // [] }) {
       autoreload_check($f);
     }