X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=scripts%2FProc%2FPrefork%2FInterp.pm;h=ab29ebc0fa7f631397a1e6ad3e359503f20b661f;hb=edecef6df4bae8689ffa738b0d923898337be204;hp=04b536e22b58d64fda06f8f44b06abdc22bb0627;hpb=5bf784827d17ce4d6b7dea3ea8c8ddb34b066459;p=chiark-utils.git

diff --git a/scripts/Proc/Prefork/Interp.pm b/scripts/Proc/Prefork/Interp.pm
index 04b536e..ab29ebc 100644
--- 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);
     }