From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 21 Aug 2022 14:35:14 +0000 (+0100)
Subject: prefork-interp: @autoreload_extra_files
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=edecef6df4bae8689ffa738b0d923898337be204;p=chiark-utils.git

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 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);
     }