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